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corner of Hampshire & Norfolk St. 617-661-2670 



NOW WE HAVE OSI AND YOU CAN GET ONTO THE BUS 



OHIO SCIENTIFIC 

We carry the entire 0. S. I. line of equipment, at the time of 
writing this ad, the items marked with * were in stock: 

500 Computer on a board with 8K ROM Basic-Serial- $298.00 

500-1 as above but with Power Supp-Cabinet- $498.00 

C2-4P As above with keyboard and 32x64 Vid. & Cass... $598.00* 
C2-8P Same as 4P but 8 slot MB and Big Power Supply. ..$825. 00* 

C2S1S Single Disk System 16 K Mem. Serial $1990.00* 

C3.S1 Dual Disk Triple Processor 32 K Memory $3590.00* 



The CSIOO VIDEO TERMINAL BOARD IS A 16 LINE 
BY 64 CHARACTER DISPLAY GENERATOR WITH 
CURSOR CONTROL AND EDITING Connect a 5V. 
ASCII Keyboard to it, a Regulated 5 Volt, Unregulat- 
B Volts, or 8 Volts AC, and your KIM Teletype-^ ort 
to it along with a video monitor and away you go with 
all the convenience of a Video Terminal on your KIM. 






BAC,VISA,MC NO, ....... .... 

SIGNATURE.. 

NAME 

ADDRESS.................... .... .......................... 

CITY .... ST ATE. ...... .ZIP 
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KIMS AND UPGRADES 

CM- 1 4K IMHi. Memory 125.00 

CM-2 4K 2MHi. Memory .149.00 

CM-3 16K 1.5 MHz. Ultra Low Pwr. Mem. ..596.00 

CA-7 I/O Board 399.00 

480 Backp iane.. Motherboard 39.00 

all above are OSI products available from us. 

VF8 4K Memory assembled & tested 129.00 

for low power RAM add 10.00 

same in kit form 74.50 

full set of sockets for Kit 10.00 

VF8 Motherboard buffered for 4 Boards 65.00 

Connector Assembly for KIM to VF8 20.00 

8K S100 Memory Board with instructions.K 165.00 

same but fully assembled and tested ... 199.00 

CSIOO Cabinet cut out for KIM 129.00 

3 Connector SlOO Motherboard Assembly..... 75.00 

CGRS SlOO TIM Kit 129.00 

CGRS SlOO 6502 CPU Kit 179.00 

CGRS SlOO Front Panel Kit .129.00 

XITEX Video Terminal Board 16X64,K 155.00 

XITEX Video Terminal Board Assembled. ..185.00 

KIM-1 245.00 

CSIOO with CGRS,Xitex,16KRAM,TV,KB 1529.00 

Same but Assembled 1989.00 

PS-5 Pwr Supp. 5V5A9V1A.12V1A6x6X2 75.00 

PS-5 Assembled ,90.00 

Total of Order. .Circle Items wanted. $ 

Mass. Residents Sales Tax 5% $ 

Shipping, 1%($2.00 min.) $ 

Total Remittance or Charge $ 
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INI THIS ISSUE 



It's always nice to be able to have fun 
while learning. "Life for your PET" by 
Dr. Frank H. Covitz presents the amaz- 
ing game of Life, implemented on a PET. 
This remarkable game, which was the 
subject of a number of Martin Gardner 
Scientific American columns, uses a few 
simple rules to generate a very complex 
universe. It is ideally suited to a 
microcomputer with a display. The pro- 
gram presented here is written in 6502 
assembly code, not BASIC, and this will 
be illuminating in itself to many PET 
owners. In addition, it demonstrates 
how to use the PET display directly. 

While the PET people can be playing 
Life on their machines, the Apple folk 
can be playing music on theirs, thanks 
to the "Applayer Music Interpreter" of 
Richard F. Suitor. A couple of songs 
are included, but most users will want 
to generate their own following the 
techniques described. The complete 
source listings also should help novice 
programmers understand the 6502 better. 

One thing that the above two articles 
have in common is their use of 6502 as- 
sembly level code. Since many users do 
not have assemblers, and will therefore 
be keying the code into their machine 
by hand, it would be nice to have a 
disassembler which converted the code 
in the computer back into a readable 
form. "A BASIC 6502 Disassembler for 
Apple and PET" by Michael 3. McCann can 
do the job. Written entirely in BASIC, 
it will disassemble code on a PET or 
Apple, using the MICRO 6502 Syntax. In 
addition to its obvious utility value, 
the program is particularly instructive 
in its handling of alphabetic strings. 

KIM-1 owners will find "A Block Hex 
Dump and Character Map Utility Program 
for the KIM-1" by 3. C. Williams to 
present a neat utility for dumping to 
a terminal. While the KIM-1 Monitor 
has a built-in Dump, it's format leaves 
a lot to be desired. This utility has 
a more useable format, plus it provides 
the option of having data printed as 
alphabetic characters as well as hex. 

When listing to a hardcopy device, the 
faster the printing the better. Not so 
when going to a display. For a display 
you would like to have some way to slow 
down the display, stop it when you get 
to a particular portion, and then con- 
tinue or abort the listing. Well, if 



you are an Apple owner, you are in luck 
because Bob Sander-Cederlof has provi- 
ded "A Slow List for Apple BASIC". The 
program is written in 6502 assembly 
language and presents some insights in- 
to the workings of the Apple Monitor. 

We are fortunate to have, starting in 
this issue, a series of tutorial arti- 
cles by Marvin L, De Jong on "6502 In- 
terfacing for Beginners". Marvin has 
already contributed a number of excel- 
lent articles to MICRO, and this series 
sounds like exactly what many readers 
have specifically requested. This mon- 
ths installment covers "Address Decod- 
ing". In addition to "talking at you", 
the article provides a number of exper- 
iments you can perform to really under- 
stand what is happening. 

William Dial's "6502 Bibliography" con- 
tinues with part IV. Since so much is 
being written about the 6502, finally, 
we are having to restrict the coverage 
somewhat. From now on, references to 
obscure journals, new product notes and 
ads, minor letters or notes or correc- 
tions, etc. will not be included. Al- 
so, references to the KIM-1 User Notes 
will be combined and brief since it is 
assumed that most MICRO readers already 
get KUN (if not, they should). 



A few new products are presented: 

"Rockwell's New R6500/1" is a new chip 
that looks very interesting for many of 
those applications which need process- 
ing power but not a lot of memory or 
fancy features. The R6500/1 combines a 
6502 with 2K bytes of ROM, 64 bytes of 
RAM, 32 programmable I/O lines, timer, 
and a few other features, all in a 
single 40-pin package. 

"Synertek's VIM-1" is a new 6502-based 
system which is an upgrade of the KIM, 
designed as an easily expandable system 
with many of the KIM-1 features, plus a 
number of new wrinkles. The single 
piece price is $270 and is scheduled 
for delivery soon. 

"Rockwell's AIM is Pretty Good" dis- 
cusses an exciting new single-board 
microcomputer which features a full 
ASCII keyboard, 20 character display 
and a 20 character printer, for $375! 
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The NOTES 



Henry Ball of Burbank CA notes that: 
"The K7 connection on KIM provides a 
convenient control for the motor on a 
cassette tape player/recorder. Just 
connect a relay circuit to it and, 
without any further programming, it 
will obediently start and stop the re- 
corder for the 1873 READ and any Super- 
tape routine. Tryit, you'll like it." 

Robert A. Huelsdonk of Seattle, WA, re- 
ferring to the Apple Printer articles, 
suggests the following: 

"Printer CALL Commands: 

Integer BASIC: 

ON: CALL 896 

OFF: PR#0 
Applesoft BASIC: 

ON: X=USR (896) 

OFF: POKE 54, 240: POKE 55,253 

These commands can be entered from the 
keyboard or in a program statement. If 
a printer other than a 40 column is 
used, then it is also necessary to POKE 
33,40 to return the CRT to it's normal 
window width." 

Robert M. Tripp of Chelmsford, MA notes 
that a number of people were mislead by 
the "Typesetting" article into thinking 
that he had a Diablo Hytype Printer 
hooked directly to his KIM-1. Actually 
the printer is part of a terminal which 
talks to the KIM via standard 20MA cur- 
rent loop methods. A reader from New 
Guinea has promised an article on how 
to directly hook up a Diablo, and says 
that it is easy. 



6502 GROUPS 

Interested in starting a KIM-1 Users 
Club in the San Fernando Valley Area 

Jim Zuber 

20224 Cohasset No. 16 

Canoga Park, CA 91306 

213/341-1610 

THE APPLE CORE 

Scot Kamins, Organizer 

Box 4816 Main Post Office 

San Francisco, CA 94101 

THEATER COMPUTER USERS GROUP 

A number of KIMs being used by members. 

Dues $4.00 include newsletter. 

Mike Firth 

104 N. St. Mary 

Dallas, TX 75214 

A.P.P.L.E. 

Val 0. Golding, President 

6708 39th Avenue SW 

Seattle, WA 98136 

206/937-6588 

MICRO 6502 
New group forming in New England to 
pursue and support serious 6502 efforts 

Robert M. Tripp, Organizer 

P.O. Box 3 

S. Chelmsford, MA 01824 

617/256-3649 Days 

*** Send us your club information *** 
** Due to our publication schedule ** 
*** meeting announcements should *** 
*** cover several months - Sept/Oct *** 
*** for the Aug/Sept issue *** 



The ANNOUNCEMENTS 



The MICROCOMPUTER RESOURCE CENTER Inc. 
offers a number of services including a 
free publication devoted to the PET, 
the "PET GAZETTE". A PET Cassette 
Exchange is also being set up in which 
you submit one program and get two-to- 
four programs in return. For your free 
subscription or other info, write: 

Len Lindsay, Editor 

PET GAZETTE 

1929 Northport Drive No. 6 

Madison, WI 53704 



The ETC. 



AUTHORS 

MICRO is currently paying $10/page for 
original articles. See "Writing for 
MICRO" 4:33 and the "Manuscript Cover 
Sheet" 4:34 for basic info. The dead- 
line for any issue is about the end of 
the first week in the month prior to 
publication, e.g. July 10th for the 
August/September issue. 
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LIFE FOR YOUR PET 

Dr. Frank H. Covitz 

Deer Hill Road 

Lebanon, NJ 08833 



Since this is the first time I have 
attempted to set down a machine lang- 
uage program for the public eye, I will 
attempt to be as complete as practical 
without overdoing it. 

The programs I will document here are 
concerned with the game of "LIFE", and 
are written in 6502 machine language 
specifically for the PET 2001 (8K ver- 
sion) . The principles apply to any 
6502 system with graphic display capa- 
bility, and can be debugged (as I did) 
on non-graphic systems such as the 
KIM-1. 

The first I heard of LIFE was in Martin 
Gardner's "Recreational Mathematics" 
section in Scientific American, Oct-Nov 
1970; Feb. 1971. As I understand it, 
the game was invented by John H. Con- 
way, an English mathematician. In 
brief, LIFE is a "cellular automation" 
scheme, where the arena is a rectang- 
ular grid (Ideally of infinite size). 
Each square in the grid is either occu- 
pied or unoccupied with "seeds", the 
fate of which are governed by relative- 
ly simple rules, i.e. the "facts of 
LIFE". The rules are: 1. A seed sur- 
vives to the next generation if and on- 
ly if it has two or three neighbors 
(right, left, up, down, and the four 
diagonally adjacent cells) otherwise it 
dies of loneliness or overcrowding, 
as the case may be. 2. A seed is born 
in a vacant cell on the next genera- 
tion if it has exactly 3 neighbors. 

With these simple rules, a surprisingly 
rich game results. The original Scien- 
tific American article, and several 
subsequent articles reveal many curious 
and surprising initial patterns and 
results. I understand that there even 
has been formed a LIFE group, complete 
with newsletter, although I have not 
personally seen it. 



The game can of course be played man- 
ually on a piece of graph paper, but it 
is slow and prone to mistakes, which 
have usually disasterous effects on the 
final results. It would seem to be the 
ideal thing to put to a microprocessor 
with bare-bones graphics, since the 
rules are so simple and there are es- 



sentially no arithmetic operations in- 
volved, except for keeping track of ad- 
dresses and locating neighbors. 

As you know, the PET-2001 has an excel- 
lent BASIC interpreter, but as yet very 
little documentation on machine lang- 
uage operation. My first stab was to 
write a BASIC program, using the entire 
PET display as the arena (more about 
boundaries later) , and the filled 
circle graphic display character as the 
seed. This worked just fine, except 
for one thing - it took about 2-1/2 
minutes for the interpreter to go 
through one generation! I suppose I 
shouldn't have been surprised since the 
program has to check eight neighboring 
cells to determine the fate of a par- 
ticular cell, and do this 1000 times to 
complete the entire generation (1*0x25 
characters for the PET display) . 

The program following is a 6502 version 
of LIFE written for the PET. It needs 
to be POKE'd into the PET memory, 
since I have yet to see or discover a 
machine language monitor for the PET. 
I did it with a simple BASIC program 
and many DATA statements (taking up 
much more of the program memory space 
than the actual machine language pro- 
gram!). A routine for assembling, and 
saving on tape machine language pro- 
grams on the PET is sorely needed. 

The program is accessed by the SYS com- 
mand, and takes advantage of the dis- 
play monitor (cursor control) for in- 
serting seeds, and clearing the arena. 
Without a serious attempt at maximizing 
for speed, the program takes about 1/2 
second to go through an entire genera- 
tion, about 300 times faster than the 
BASIC equivalent! Enough said about 
the efficiency of machine language pro- 
gramming versus BASIC interpreters? 



BASIC is great for number crunching, 
where you can quickly compose your pro- 
gram and have plenty of time to await 
the results. 

The program may be broken down into 
manageable chunks by subroutining . 
There follows a brief description of 
the salient features of each section: 
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MAIN (hex 1900) 

In a fit of overcaution (since this was 
the first time I attempted to write a 
PET machine language program) you 
will notice the series of pushes at the 
beginning and pulls at the end. I de- 
cided to save all the internal regis- 
ters on the stack in page 1 , and also 
included the CLD (clear decimal mode) 
just in case. Then follows a series of 
subroutine calls to do the LIFE genera- 
tion and display transfers. The zero 
page location, TIMES, is a counter to 
permit several loops through LIFE be- 
fore returning. As set up, TIMES is 
initialized to zero (hex location 1953) 
so that it will loop 256 times before 
jumping back. This of course can be 
changed either initially or while in 
BASIC via the POKE command. The return 
via the JMP BASIC (4C 8B C3) may not be 
strictly orthodox, but it seems to work 
all right. 

INIT (hex 1930) and DATA (hex 193B) 

This shorty reads in the constants 
needed, and stores them in page zero. 
SCR refers to the PET screen, TEMP is 
a temporary working area to hold the 
new generation as it is evolved, and 
RCS is essentially a copy of the PET 
screen data , which I found to be neces- 
sary to avoid "snow" on the screen dur- 
ing read/write operations directly on 
the screen locations. Up, down, etc. 
are the offsets to be added or subtrac- 
ted from an address to get all the 
neighbor addresses. The observant 
reader will note the gap in the addres- 
ses between some of the routines. 



TMPSCfi (hex 1970) 

This subroutine quickly transfers the 
contents of Temp and dumps it to the 
screen, using a dot (81 dec) symbol for 
a live cell (a 1 in TEMP) and a space 
(32 dec) for the absence of a live cell 
(a in TEMP) , 

SCfiTMP (hex 198A) 

This is the inverse of TMPSCR, quickly 
transferring (and encoding) data 
from the screen into TEMP. 

RSTORE (hex 19A6) 

This subroutine fetches the initial 
addresses (high and low) for the SCR, 
TEMP, and RCS memory spaces. 



NXTADR (hex 19BD) 

Since we are dealing with 1000 bytes of 
data, we need a routine to increment to 
the next location, check for page cros- 
sing (adding 1 to the high address when 
it occurs), and checking for the end. 
The end is signaled by returning a 01 
in the accumulator, otherwise a 00 is 
returned via the accumulator. 



TMPRCS (hex 19E6) 

The RCS address space is a copy of the 
screen, used as mentioned before to 
avoid constant "snow" on the screen if 
the screen were being continually ac- 
cessed. This subroutine dumps data 
from TEMP, where the new generation has 
been computed, to RCS. 

GENER (hex 1A00) 

We finally arrive at a subroutine where 
LIFE is actually generated. After 
finding out the number of neighbors of 
the current RCS data byte from NBRS, 
GENER checks for births (CMPIM $03 at 
hex addr. lAOE) if the cell was prev- 
iously unoccupied. If a birth does not 
occur, there is an immediate branch to 
GENADR (the data byte remains 00). If 
the cell was occupied (CMPIM 8l dec at 
hex 1A08), OCC checks for survival 
(CMPIM $03 at hex lAlA and CMPIM $02 at 
hex lAlE), branching to GENADR when 
these two conditions are met, otherwise 
the cell dies (LDAIM $00 at hex 1A22). 
The results are stored in TEMP for the 
1000 cells. 

NBRS (hex 1A2F) 

NBRS is the subroutine that really does 
most of the work and where most of the 
speed could be gained by more efficient 
programming. Its job, to find the tot- 
al number of occupied neighbors of a 
given RCS data location, is complicated 
by page crossing and edge boundaries. 
In the present version, page crossing 
is taken care of, but edge boundaries 
(left, right, top, and bottom of the 
screen) are somewhat "strange". Above 
the top line and below the bottom line 
are considered as sort of forbidden re- 
gions where there should practically 
always be no "life" (data in those re- 
gions are not defined by the program, 
but I have found that there has never 
been a case where Si's have been pres- 
ent (all other data is considered as 
"unoccupied" characters) . The right 
and left edges are different, however. 
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and lead to a special type of "geom- 
etry". A cell at either edge is not 
considered as special by NBRS, and so 
to the right of a right-edge location 
is the next sequential address. On the 
screen this is really the left edge 
location, and one line lower. The in- 
verse is true, of course for left ad- 
dresses of left-edge locations. Topo- 
logically, this is equivalent to a 
"helix". No special effects of this 
are seen during a simple LIFE evolution 
since it just gives the impression of 
disappearing off one edge while appear- 
ing on the other edge. For an object 
like the "spaceship" (see Scientific 
American articles), then, the path 
eventually would cover the whole LIFE 
arena. The fun comes in when a config- 
uration spreads out so much that it 
spills over both edges, and interacts 
with itself. This, of course cannot 
happen in an infinite universe, so that 
some of the more complex patterns will 
not have the same fate in the present 
version of LIFE. Most of the "blink- 
ers", including the "glider gun" come 
out OK. 

This i»0x25 version of LIFE can undoubt- 
edly be made more efficient, and other 
edge algorithms could be found, but I 
chose to leave it in its original form 
as a benchmark for my first successful- 
ly executed program in writing machine 



language on the PET. One confession, 
however - I used the KIM-1 to debug 
most of the subroutines. Almost all of 
them did not run on the first shot! 
Without a good understanding of PET 
memory allocation particularly in page 
zero, I was bound to crash many times 
over, with no recovery other than pul- 
ling the plug. The actual BASIC pro- 
gram consisted of a POKING loop with 
many DATA statements (always save on 
tape before running! ) . 

Although the LIFE program was designed 
for use on the PET (8K version) , no 
references are made to PET ROM loca- 
tions or subroutines, and except for 
MAIN and SUBROUTINE address, are fully 
relocatable. The PET screen addresses 
(8000 - 83E8 hex) are treated as RAM. 
For anyone (with a 6502-based system) 
trying to convert the PET program, the 
following points need to be watched: 

1. The BLANK symbol = 20 hex 

2. The DOT symbol = 51 hex 

3. The OFFSETS in DATA must be set 
for the user's display. 



[Editor's Note: This seems like an 
ideal program to convert to an APPLE II 
and MICRO would be happy to print a 
list of the required modifications and 
enhancements that someone develops.] 



A Brief Introduction 
to the Game of Life 

by Mike Rowe 

One of the interesting properties of 
the game of LIFE is that such simple 
rules can lead to such complex activ- 
ity. The simplicity comes from the 
fact that the rules apply to each in- 
dividual cell. The complexity comes 
from the interactions between the indi- 
vidual cells. Each individual cell is 
affected by its eight adjacent neigh- 
bors, and nothing else. 

The rules are: 



2. A cell dies from overcrowding if it 
has four or more neighbors. It dies 
from isolation if it has one or zero 
neighbors. 

3- A cell is born when an empty space 
has exactly three neighbors. 

With these few rules, many different 
types of activity can occur. Some pat- 
terns are STABLE, that is they do not 
change at all. Some are REPEATERS, 
patterns which undergo one or more 
changes and return to the original 
pattern. A REPEATER may repeat as fast 
as every other generation, or may have 
a longer period. A GLIDER is a pattern 
which moves as it repeats. 



1. A cell survives if it has two or 
three neighbors. 

REPEATERS 



» « 



STABLE 
« « 



« « 
« » 



» » 



« « « 



« It 



» » 



ft » « 
ft « ft 
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GLIDERS 



ft ft 

ft ft ft 

• ftft ftftftftftft 



CPLUGS INTO KEM) OR BURN YOUR OWN WITH OUR 2708/16 PROGRAMMER 



n Ml 




OlSNVdX3 l-l/MIVI) I/M3VI S3aiSd3Am HUM QQ NVO l-l/MIVI dHOA IVHM SI SIHl 



^ 



s^ 



1900 

1900 
1900 
1900 
1900 

1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 
1900 

1900 08 

1901 48 

1902 8A 

1903 '♦8 
190U 98 

1905 48 

1906 BA 

1907 8A 

1908 MB 

1909 D8 

190A 20 30 19 

190D 20 8A 19 

1910 20 E6 19 
1913 20 00 1A 
I9I6 20 70 19 

1919 E6 38 
I9IB DO F3 
19ID 68 
19IE AA 
I9IF 9A 

1920 68 



LIFE ORG $1900 



BASIC 
OFFSET 
DOT 
BLANK 

SCRL 

SCRH 

CHL 

CHH 

SCRLO 

SCRHO 

TEMPL 

TEMPH 

TEMPLO 

TEMPHO 

UP 

DOWN 

RIGHT 

LEFT 

UR 

UL 

LR 

LL 

N 

SCRLL 

SCRLH 

RCSLO 

RCSHO 

TMP 

TIMES 

RCSL 

RCSH 

MAIN 



GEN 



PHP 

PHA 

TXA 

PHA 

TYA 

PHA 

TSX 

TXA 

PHA 

CLD 

JSR 

JSR 

JSR 

JSR 

JSR 

INCZ 

BNE 

PLA 

TAX 

TXS 

PLA 



$C38B 
$002A 
$0051 
$0020 

$0020 
$0021 
$0022 
$0023 
$0024 

$0025 
$0026 
$0027 
$0028 
$0029 
$002A 
$002B 
$002C 
$002D 
$002E 
$002F 
$0030 

$0031 
$0032 
$0033 
$0034 
$0035 
$0036 
$0037 
$0038 
$0039 
$003A 



RETURN TO BASIC ADDRESS 
PAGE ZERO DATA AREA POINTER 
DOT SYMBOL = 81 DECIMAL 
BLANK SYMBOL = 32 DECIMAL 

PAGE ZERO LOCATIONS 



SAVE EVERYTHING 
ON STACK 



CLEAR DECIMAL MODE 



INIT 

SCRTMP 

TMPRCS 

GENER 

TMPSCR 

TIMES 

GEN 



REPEAT 255 TIMES 
BEFORE QUITTING 
RESTORE EVERYTHING 



^ 
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1921 A8 






TAY 






1922 68 






PLA 






1923 AA 






TAX 






192M 68 






PLA 






1925 28 






PLP 






1926 HC 


8B C3 




JMP 


BASIC 


RETURN TO BASIC 


1930 






ORG 


$1930 








MOVE VALUES 


INTO PAGE ZERO 


1930 A2 


19 


INIT 


LDXIM 


$19 


MOVE 25. VALUES 


1932 BD 


3A 19 


LOAD 


LDAX 


DATA 


-01 


1935 95 


IF 




STAZX 


$1F 


STORE IN PAGE ZERO 


1937 CA 






DEX 






1938 DO 


F8 




BNE 


LOAD 




193A 60 






RTS 






193B 00 




DATA 


- 


$00 


SCRL 


193C 80 






= 


$80 


SCRH 


193D 00 






= 


$00 


CHL 


193E 15 






= 


$15 


CHH 


193F 00 






= 


$00 


SCRLO 


19'<0 80 






r 


$80 


SCRHO 


^9^^ oo 






= 


$00 


TEMPL 


19'<2 IB 






= 


$1B 


TEMPH 


19'<3 00 






= 


$00 


TEMPLO 


19'*'* IB 






= 


$1B 


TEMPHO 


19'<5 D7 






= 


$D7 


UP 


19'<6 28 






= 


$28 


DOWN 


19'*? 01 






= 


$01 


RIGHT 


19'<8 FE 






= 


$FE 


LEFT 


19'<9 D8 






= 


$D8 


UR 


19'<A D6 






= 


$D6 


UL 


19'<B 29 






= 


$29 


LR 


19'<C 27 






= 


$27 


LL 


194D 00 






= 


$00 


N 


19'<E E8 






= 


$E8 


SCRLL 


19MF 83 






= 


$83 


SCRLH 


1950 00 






r 


$00 


RCSLO 


1951 15 






= 


$15 


RCSHO 


1952 00 






=; 


$00 


TMP 


1953 00 






= 


$00 


TIMES 


1970 






ORG 


$1970 




1970 20 


A6 19 


TMPSCR 


JSR 


RSTORE 


GET INIT ADDRESSES 


1973 B1 


26 


TSLOAD 


LDAiy 


TEMPL 


FETCH BYTE FROM TEMP 


1975 DO 


06 




BNE 


TSONE 


BRANCH IF NOT ZERO 


1977 A9 


20 




LDAIM 


BLANK 


BLANK SYMBOL 


1979 91 


20 




STAIY 


SCRL 


DUMP IT TO SCREEN 


197B DO 


Oh 




BNE 


TSNEXT 




197D A9 


51 


TSONE 


LDAIM 


DOT 


DOT SYMBOL 


197F 91 


20 




STAIY 


SCRL 


DUMP IT TO SCREEN 


1981 20 


BD 19 


TSNEXT 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


1981 FO 


ED 




BEQ 


TSLOAD 
5:10 
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1986 20 


A6 19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


1989 60 






RTS 






198a 20 


A6 19 


SCRIMP 


JSR 


RSTORE 


GET INIT ADDRESSES 


198D B1 


20 


STLOAD 


LDAIY 


SCRL 


READ DATA FROM SCREEN 


198F C9 


51 




CMPIM 


DOT 


TEST FOR DOT 


1991 FO 


06 




BEQ 


STONE 


BRANCH IF DOT 


1993 A9 


00 




LDAIM $00 


OTHERWISE ITS A BLANK 


1995 91 


26 




STAIY 


TEMPL 


STORE IT 


1997 FO 


04 




BEQ 


STNEXT 


UNCOND. BRANCH 


1999 A9 


01 


STONE 


LDAIM 


$01 


A DOT WAS FOUND 


199B 91 


26 




STAIY 


TEMPL 


STORE IT 


199D 20 


BD 19 


STNEXT 


JSR 


NXTADR 


FETCH NEXT ADDRESS 


19A0 FO 


EB 




BEQ 


STLOAD 




19A2 20 


A6 19 




JSR 


RSTORE 


RESTORE INIT ADDRESSES 


19A5 60 






RTS 






19A6 A9 


00 


RSTORE 


LDAIM 


$00 


ZERO A, X, Y 


19A8 AA 






TAX 






19A9 A8 






TAY 






19AA 85 


20 




STAZ 


SCRL 


INIT VALUES 


19AC 85 


26 




STAZ 


TEMPL 




19AE 85 


39 




STAZ 


RCSL 




19B0 A5 


25 




LDAZ 


SCRHO 




19B2 85 


21 




STAZ 


SCRH 




19B4 A5 


29 




LDAZ 


TEMPHO 




19B6 85 


27 




STAZ 


TEMPH 




19B8 A5 


36 




LDAZ 


RCSHO 




19BA 85 


3A 




STAZ 


RCSH 




19BC 60 






RTS 






19BD E6 


26 


NXTADR 


INCZ 


TEMPL 


GET NEXT LOW ORDER 


19BF E6 


20 




INCZ 


SCRL 


BYTE ADDRESS 


19C1 E6 


39 




INCZ 


RCSL 




19C3 E8 






INX 






19C4 E4 


33 




CPXZ 


SCRLL 


IS IT THE LAST? 


19C6 FO 


OC 




BEQ 


PAGECH 


IS IT THE LAST PAGE? 


19C8 EO 


00 




CPXIM 


$00 


IS IT A PAGE BOUNDARY? 


19CA DO 


OE 




BNE 


NALOAD 


IF NOT, THEN NOT DONE 


19CC E6 


27 




INCZ 


TEMPH 


OTHERWISE ADVANCE TO 


19CE E6 


21 




INCZ 


SCRH 


NEXT PAGE 


19D0 E6 


3A 




INCZ 


RCSH 




19D2 DO 


06 




BNE 


NALOAD 


UNCONDITIONAL BRANCH 


19D1* A5 


34 


PAGECH 


LDAZ 


SCRLH 


CHECK FOR LAST PAGE 


19D6 C5 


21 




CMPZ 


SCRH 




19D8 FO 


03 




BEQ 


NADONE 


IF YES, THEN DONE 


19DA A9 


00 


NALOAD 


LDAIM 


$00 


RETURN WITH A=0 


19DC 60 






RTS 






19DD A9 


01 


NADONE 


LDAIM 


$01 


RETURN WITH A=1 


19DF 60 






RTS 






19E6 






ORG 


$19E6 





19E6 20 A6 19 
19E9 31 26 
19EB DO 06 



TMPRCS JSR RSTORE INIT ADDRESSES 
TRLOAD LDAIY TEMPL FETCH DATA FROM TEMP 

BNE TRONE IF NOT ZERO THEN ITS ALIVE 



\. 
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19ED A9 20 

19EF 91 39 

19F1 DO OH 

19F3 A9 51 

19F5 91 39 

19F7 20 BD 19 

19FA FO ED 

19FC 20 A6 19 

19FF 60 



LDAIM BLANK 
STAIY RCSL 
BNE NEWADR 

TRONE LDAIM DOT 
STAIY RCSL 

NEWADR JSR NXTADR 
BEO TRLOAD 
JSR RSTORE 
RTS 



BLANK SYMBOL 

STORE IT IN SCREEN COPY 

THEN ON TO A NEW ADDRESS 

THE DOT SYMBOL 

STORE IT IN SCREEN COPY 

FETCH NEXT ADDRESS 

IF A=0, THEN NOT DONE 

ELSE DONE. RESTORE 



1A00 20 A6 19 GENER JSR RSTORE INIT ADDRESSES 

1A03 20 2F 1A AGAIN JSR NBRS FETCH NUMBER OF NEIGHBORS 

1A06 B1 39 LDAIY RCSL FETCH CURRENT DATA 

1A08 C9 51 CMPIM DOT IS IT A DOT? 

1A0A FO OC BEO OCC IF YES, THEN BRANCH 

1A0C A5 32 LDAZ N OTHERWISE ITS BLANK 

1A0E C9 03 CMPIM $03 SO WE CHECK FOR 

1A10 DO U BNE GENADR A BIRTH 

1A12 A9 01 BIRTH LDAIM $01 IT GIVES BIRTH 

lAlU 91 26 STAIY TEMPL STORE IT IN TEMP 

1A16 DO OE BNE GENADR INCONDITIONAL BRANCH 

1A18 A5 32 OCC LDAZ N FETCH NUMBER OF NEIGHBORS 

1A1A C9 03 CMPIM $03 IF IT HAS 3 OR 2 

1A1C FO 08 BEO GENADR NEIGHBORS IT SURVIVES 

1A1E C9 02 CMPIM $02 

1A20 FO OH BEQ GENADR 

1A22 A9 00 DEATH LDAIM $00 IT DIED! 

1A2i< 91 26 STAIY TEMPL STORE IT IN TEMP 

1A26 20 BD 19 GENADR JSR NXTADR FETCH NEXT ADDRESS 

1A29 FO D8 BEO AGAIN IF 0, THEN NOT DONE 

1A2B 20 A6 19 JSR RSTORE RESTORE INIT ADDRESSES 

1A2E 60 RTS 



1A2F 
1A30 
1A31 
1A32 
1A33 
1A35 
1A37 
1A39 
1A3B 
1A3D 
1A3F 
lAUl 
1Ai<2 
1Ai<4 
1AU6 
1A48 
1A4A 
1A4C 
1AUE 
1A50 
1A52 
1A53 
1A55 



98 
48 
8A 
48 
AO 00 

84 32 
A2 08 
B5 29 
10 15 
49 FF 

85 37 
38 

A5 39 
E5 37 
85 22 
A5 3A 
85 23 
BO 11 
06 23 
DO OD 
18 

65 39 
85 22 



NBRS 



OFFS 



ADD 



TYA 

PHA 

TXA 

PHA 

LDYIM 

STYZ 

LDXIM 

LDAZX 

BPL 

EORIM 

STAZ 

SEC 

LDAZ 

SBCZ 

STAZ 

LDAZ 

STAZ 

BCS 

DECZ 

BNE 

CLC 

ADCZ 

STAZ 



$00 

N 

$08 

OFFSET 

ADD 

$FF 

TMP 

RCSL 

TMP 

CHL 

RCSH 

CHH 

EXAM 

CHH 

EXAM 

RCSL 
CHL 



SAVE Y AND X ON STACK 



SET Y AND N = 

CHECK 8 NEIGHBORS 

-01 

ADD IF OFFSET IS POSITIVE 

OTHERWISE GET SET TO 

SUBTRACT 

SET CARRY BIT FOR SUBTRACT 

SUBTRACT TO GET THE 
CORRECT NEIGHBOR ADDRESS 



OK, FIND OUT WHAT'S THERE 

PAGE CROSS 

UNCOND, BRANCH 

GET SET TO ADD 

ADD 

STORE THE LOW PART 



\. 
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\kbl A5 


3A 




LDAZ 


RCSH 


FETCH THE HIGH PART 


1A59 85 


23 




STAZ 


CHH 




1A5B 90 


02 




BCC 


EXAM 


OK, WHAT'S THERE 


1A5D E6 


23 




INCZ 


CHH 


PAGE CROSSING 


1A5F B1 


22 


EXAM 


LDAIY 


CHL 


FETCH THE NEIGHBOR 


1A61 C9 


51 




CMPIM 


DOT 


DATA BYTE AND SEE IF ITS 


1A63 DO 


02 




BNE 


NEXT 


OCCUPIED 


1A65 E6 


32 




INCZ 


N 


ACCUMULATE NUMBER OF NEIGHBORS 


1A67 CA 




NEXT 


DEX 






1A68 DO 


CF 




BNE 


OFFS 


NOT DONE 


1A6A 68 






PLA 




RESTORE X, Y FROM STACK 


1A6B AA 






TAX 






1A6C 68 






PLA 






1A6D A8 






TAY 






1A6E 60 






RTS 







SYMBOL TABLE 2000 2186 

BLANK 0020 SCRL 0020 

CHH 0023 SCRLO 002^1 

TEMPH 0027 TEMPLO 0028 

UP 002A DOWN 002B 

UR 002E UL 002F 

N 0032 SCRLL 0033 

RCSHO 0036 TMP 0037 

RCSH 003A DOT 0051 

GEN 1910 INIT 1930 

TMPSCR 1970 TSLOAD 1973 

SCRTMP I98A STLOAD I98D 

RSTORE 19A6 NXTADR 19BD 

NADONE 19DD TMPRCS 19E6 

NEWADR 19F7 GENER 1A00 

OCC IAI8 DEATH 1A22 

OFFS 1A39 ADD 1A52 
BASIC C38B 



SCRH 

SCRHO 

TEMPHO 

RIGHT 

LR 

SCRLH 

TIMES 

LIFE 

LOAD 

TSONE 

STONE 

PAGECH 

TRLOAD 

AGAIN 

GENADR 

EXAM 



0021 
0025 
0029 
002c 
0030 
OOS'* 
0038 
1900 
1932 
197D 
1999 
19D'* 
19E9 
IAO3 
1A26 
1A5F 



CHL 

'TEMPL 

OFFSET 

LEFT 

LL 

RCSLO 

RCSL 

MAIN 

DATA 

TSNEXT 

STNEXT 

NALOAD 

TRONE 

BIRTH 

NBRS 

NEXT 



0022 
0026 
002A 
002D 
0031 
0035 
0039 
1900 
193B 
1981 
199D 
19DA 
19F3 
1A12 
1A2F 
1A67 



SYMBOL 

ADD 

BLANK 

DEATH 

GENADR 

LEFT 

LR 

NALOAD 

NXTADR 

PAGECH 

RCSLO 

SCRHO 

SCRLO 

STONE 

TEMPLO 

TMP 

TSNEXT 

UR 



TABLE 

1A52 

0020 

1A22 

1A26 

002D 

0030 

19DA 

19BD 

igDi* 

0035 

0025 

002^1 

1999 

0028 

0037 

1981 

002E 



2000 2186 
AGAIN IAO3 
CHH 
DOT 
GENER 
LIFE 



MAIN 
NBRS 
OCC 
RCSH 



0023 
0051 
1A00 
1900 
1900 
1A2F 
IAI8 
003A 



RIGHT 002c 
SCRL 0020 
SCRTMP I98A 
TEMPH 0027 
TIMES 0038 
TRLOAD 19E9 
TSONE 197D 



BASIC 

CHL 

DOWN 

GEN 

LL 

N 

NEWADR 

OFFS 

RCSHO 

RSTORE 

SCRLH 

STLOAD 

TEMPHO 

TMPRCS 

TRONE 

UL 



C38B 
0022 
002B 
1910 
0031 
0032 
19F7 
1A39 
0036 
19A6 
003^* 
198D 
0029 
19E6 
19F3 
002F 



BIRTH 

DATA 

EXAM 

INIT 

LOAD 

NADONE 

NEXT 

OFFSET 

RCSL 

SCRH 

SCRLL 

STNEXT 

TEMPL 

TMPSCR 

TSLOAD 

UP 



1A12 
193B 
1A5F 
1930 
1932 
19DD 
1A67 
002A 
0039 
0021 
0033 
199D 
0026 
1970 
1973 
002A 



\, 
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ROCKNELL'S NEN R6300/1 

Rockwell International 

Electronic Devices Division 

3310 Miraloma Avenue 

P.O. Box 3669 

Anaheim, CA 92803 



ANAHEIM, CA., May 11, 1978 — A single- 
chip NMOS microcomputer (R6500/1) oper- 
ating at 2 MHz with a 1 microsecond 
minimum instruction execution time, has 
been developed by Rockwell Int'l. 

The UO-pin R6500/1 is fully software 
compatible with the 6500 family. It 
has the identical instruction set, in- 
cluding the 13 addressing modes, of the 
6502 CPU. It operates from a single 5V 
power supply, and features a separate 
power pin which allows RAM memory to 
function on lOit of the operatinK power. 
On-chip features include 2K x 8 ROM, 6U 
X 8 RAM, 16-bit interval timer/ event 
counter, and 32 bidirectional 1/0 
lines. Additionally, it has maskable 
and non-maskable interrupts and an 
event-in/timer-out line. 

The 32 bidirectional I/O lines are di- 
vided into four eight-bit ports (A, B, 
C and D) . Each line can be selective- 
ly used as an input or an output. Two 
inputs to Port A can be used as edge 
sensing, software maskable, interrupt 
inputs -- one senses a rising edge; 
the other a falling edge. 



Four different counter modes of oper- 
ation are programmable: (1) free run- 
ning with clock cycles counted for real 
time reference; (2) free running with 
output signal toggled by each counter 
overflow; (3) external event counter; 
and (U) pulse width measurement mode. 
A 16-bit latch automatically reinitial- 
izes the counter to a preset value. 
Interrupt on overflow is software mask- 
able. 



A 61-pin Emulator part, of which UO 
pins are electrically identical to the 
standard R6500/1 part and which comes 
in either 1 MHz or 2 MHz versions, is 
available now. Rockwell expects to be- 
gin receiving codes from customers in 
July for production deliveries in Sept. 
Quantity prices for 6500/1 production 
devices are under $10.00 for both the 

1 MHz and 2 MHz models. Single-unit 
prices for Emulator parts are $75.00 
for the 1 MHz model and $95.00 for the 

2 MHz version. 

Contact: Leo Scanlon - 7U/632-2321 
Pattie Atteberry - 213/386-8600 




ONE-CHIP SPEEDSTER ■■ Functional diagram of one-chip NMOS microcomputer (R6500/1) developed by Rockwell International. 
Fully software compatible with the 6500 family, the R6500/1 operates from a single 5V power supply at 2 MHj with a I microsecond 
minimum execution time. 
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6502 INTERFACING FOR BEGINNERS: 
ADDRESS DECODING I 

Marvin L. De Jong 

Dept . of Math-Physics 

The School of the Ozarks 

Point Lookout, MO 65726 



This is the first installment of a col- 
umn which will appear on a regular 
basis as long as reader interest, auth- 
or enthusiasm and the editor's approval 
exist. Your response will be vital for 
our deciding whether to continue the 
column. Do not be afraid to be criti- 
cal or to make suggestions about what 
subjects you would like to see. Hope- 
fully, the column will be of interest 
to anyone who owns a 6502 system. One 
of the more challenging aspects of be- 
ing a computer hobbyist is understand- 
ing how your system works and being 
able to configure and construct I/O 
ports. Then one can begin to tie his 
computer to the outside world. Perhaps 
this column will give you the ability 
to produce flashing lights, clicking 
relays, whirring motors, and other re- 
markable phenomena to amaze your fri- 
ends and make your mother proud. 

An educational column has to make some 
assumptions about where the readers are 
in terms of their understanding. A fa- 
miliarity with binary and hex numbers 
will be assumed, as will a nodding ac- 
quaintance with the 7400 series of in- 
tegrated circuits. Lacking such a 
background I would recommend that you 
get a book like "Bugbook V" by Rony, 
Larsen, and Titus; "TTL Cookbook" by 
Lancaster; or an equivalent book from 
your local computer shop or mail order 
house. Ads in "Micro", "Byte", 
"Kilobaud", "Ham Radio", "73 Magazine", 
etc. will list places where both books 
and parts may be ordered. My own pre- 
ference for "hands-on" experience would 
be "Bugbook V". Although this book has 
some material on the 8O8OA chip, most 
of the material is very general and the 
chapters covering the basic 7^00 series 
integrated circuits are very good. An- 
other indispensable book is the "TTL 
Data Book" published by Texas Instru- 
ments. 

It would be a good idea to get a Proto 
Board or equivalent breadboarding sys- 
tem for the experiments which will be 
suggested. One can even find wire kits 
to go with the breadboards. I would 
not purchase all the Outboards from E & 
L Instruments since the same circuits 
can be constructed less expensively 



from parts. Please regard these sug- 
gestions as opinions which may not be 
shared by all experimenters. 

Finally, let me introduce the column by 
saying that the title is not "Interfac- 
ing Made Easy". If it were easy there 
would be no challenge and no need for 
this column. Like mountain climbing, 
satisfaction comes from overcoming the 
difficult rather than achieving the ob- 
vious. The material which you see in 
this column will usually be something 
which I am in the process of learning 
myself. I am a hobbyist like yoursel- 
ves: I keep the wolf from the door by 
teaching mathematics and physics, not 
computer science or digital electron- 
ics. Expert opinions from readers and 
guest contributions will always be wel- 
come . 

We begin at the beginning. The 6502 
pins may be divided into four groups: 
power, address, data, and control pins. 
Pins 1 and 21 are grounds, and pin 8 is 
connected to the +5V supply, making the 
power connections. Pins 9 through 20 
and 22 through 25 are connected to the 
address bus on the microcomputer, while 
the data pins, 26 through 33, are con- 
nected to the data bus. All of the re- 
mainder of the pins may be lumped in 
the general class of control pins. In 
subsequent issues the data bus and the 
control bus will be discussed. Our 
concern in the first two issues is with 
addressing. 

The 6502 Address Bus 

The 6502 receives data from a variety 
of devices (memory, keyboard, tape 
reader, floppy disc, etc.), processes 
it, and sends it back to one or more 
devices. The first process is called 
READ and is accomplished by the LDA or 
similar instruction. The last process 
is called WRITE and is achieved by a 
STA type instruction. The purpose of 
the address pins is to put out a signal 
on the address bus to select the 
device or location which is going to 
produce or accept the data. In the 
computer system, each device has a 
unique address, and when the 6502 puts 
that address on the address bus, the 
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device must be activated. Each line 
on the address bus may have one of two 
possible values (high or low, H or L, 
1 or 0, +5V or OV are the names most 
frequently given to these values) . A 
one-address-line system could select 
two devices; one activated by a on 
the address line, the other by a 1 . 
Figure 1 shows how to decode such an 
idiot microcomputer. 



AO— [>- 



i^ 




Device 2 



evice 1 



Figure 1 . Decoding a One-Address Line 
Microprocessor . 



Any device which when connected to the 
address bus puts out a unique signal 
(1 or 0) for a unique address is called 
a decoder. We have seen that a micro- 
computer with a single address line can 
select two devices, which could be 
memory locations or I/O ports. A some- 
what smarter microprocessor might have 
two address lines. It could be decoded 
by the device shown in Figure 2, pro- 
vided the truth table of the device 
were the one given in Table 1. Such a 
device could be implemented with NAND 
OR NOR gates, or with a 7^139. 




— |N— Device H 
— P> — Device 3 
— r^>— Device 2 
— P^>-Device 1 



The point is that two address lines 
allow the microprocessor to select four 
devices; three address lines give eight 
devices; four, 16; five, 32; six, 64; 
and so on. The 6502, being very smart, 
has 16 address lines. Anyone who can 
calculate how many telephones can be 
"addressed" by a 7-digit, base-ten 
phone number can also calculate how 
many locations can be addressed by a 16 
digit, base-two address bus, The 
are 10^=10 million and 
65,536, respectively. 



answers 



Figure 2. 7^139 Decoder for a Two- 
Address Line Microprocessor. 



Earth people have not yet made a 
single device to simultaneously decode 
16 address lines to produce 65,536 
device select signals. Such a monster 
IC would need at least 65,554 pins. 
Many integrated circuits are con- 
structed to decode the ten, low-order 
address lines (A0-A9) internally. For 
example, the 6530 PIA chips on the 
KIM and the 21L02 memory chips on my 
memory board decode the ten lowest 
address lines internally, that is, they 
select any one of the 2'** =1024 flip- 
flops to be written to or read. Con- 
sequently, our problem is to decode the 
high-order address lines, at least 
initially. These lines are usually de- 
coded to form blocks of address space 
(not unlike home addresses in city 
blocks) . Three address lines give 
eight (2*^=8) possible blocks, and the 
three highest address lines (A15-A13) 
divide the address soace into eight 
blocks, each having 2^'^^^ =2'-^ loca- 
tions. 



Now 1024 ( 1024=2'°) locations is usual- 
ly referred to as IK, so 2'^ locations 
is 2^ X 2'* locations, which is 8 x 2'* 
locations, which is 8K locations. Thus 
the top three address lines divide the 
address space into eight, 8K blocks. 
See Table 2 for more details. Each of 
these 8K blocks may be further divided 



Inputs 
A B 


Outputs 
1 2 


3 


L L 
L H 
H L 
H H 


L H H 
H L H 
H H L 
H H H 


H 
H 
H 
L 



Table 1. Truth Table for Two-Line 
Decoder 74139. 



A15 


A14 


A13 


Name 


Hex Addresses 











8K0 


0000-1FFF 








1 


8K1 


2000-3FFF 





1 





8K2 


4000-5FFF 





1 


1 


8K3 


6000-7FFF 


1 








8K4 


8000-9FFF 


1 





1 


8K5 


AOOO-BFFF 


1 


1 





8K6 


COOO-DFFF 


1 


1 


1 


8K7 


EOOO-FFFF 



Table 2. "Blocking" the Memory Space, 
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into IK blocks by decoding address 
lines A12-A10. Table 3 shows how block 
8K4 is divided into eight, IK blocks. 
Finally, as mentioned before, many de- 
vices decode the lowest 10 address 
lines, and consequently we have decoded 
all 16 address lines, at least on 
paper. 



A12 


All 


A10 


Name 


Hex Address 











K32 


8000-83FF 








1 


K33 


8400-87FF 





1 





K3^ 


8800-8BFF 





1 


1 


K35 


8C00-8FFF 


1 








K36 


9000-93FF 


1 





1 


K37 


9UOO-97FF 


1 


1 





K38 


9800-9BFF 


1 


1 


1 


K39 


9COO-9FFF 



Table 3. Subdivision of 8K4 Block into 
IK blocks. 



To begin to see how this is done, con- 
struct the circuit shown in Figure 3. 



1 . Load the following program somewhere 
between 0100 and 1FFF. The program 
is relocatable . 



0200 18 

0201 8D XX 60 
0204 90 FB 



LOOP 



CLC 

STA 60XX 

BCC LOOP 



This routine stores Accum. in location 
60XX. X means "don't care." Then loop 
back. 



2. Run the program and with the wire 

probe shown in Figure 3, test each of 

the output pins (pins 1-7 and 9). 

Which ones cause the LED to glow? 



3. Try to explain your results with the 
help of the truth table. Table 4. 



4. Change the STA instruction to a LDA 
instruction (AD XX 60) and repeat steps 
2 and 3 above. 




100 ohms 



6_ Wire Probe 
5 




LED 



^Computer Ground 



Figure 3- Decoding the Highest Three 
Address Lines. 



(There are many decoding schemes and 
circuits, the circuit of Figure 3 is 
just one possible technique.) Here 
is where your breadboard becomes 
useful. Connect the address lines from 
your 6502 system to the 74145. (KIM 
owners can do this with no buffering 
because lines A15-A13 are not used on 
the KIM-1. Owners of other systems 
should check to see if the address 
lines are properly buffered.) Now per- 
form the following experiments: 



5. In turn, change the location at 
which you are getting the data to a 
location in each of the 8K blocks in 
Table 2, e.g. OOXX, 20XX, 40XX, etc. 
and test the output pins on the 74145 
to see if the LED glows. You should be 
able to explain your results with the 
truth table. 



6. Stop the program and check the 
pins again. 





Inpu 


ts 








Outputs 






c 


B 


A 





1 


2 


3 


4 


5 


6 


7 


L 


L 


L 


L 


H 


H 


H 


H 


H 


H 


H 
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H 


H 
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Table 4. Truth Tabic for 74LS145 when 
connected 9S shown in Figure 3. 
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In steps 2 and 4 the LED should glow 
when the probe touches pin 1 and pin 4. 
Why does it glow more brightly on pin 
1? When the program is stopped, only 
pin 1 should cause the LED to light. 
The answers to these questions and the 
answers to questions you never asked 
will be given in the next issue. 

What else is coming up in the next 
column? We will see how to take any 
of the 8 signals from the 74145 to 
enable a 74LS138 which in turn will 
decode address lines A12-A10, thus 



dividing any 8K block of address space 
which we may select into IK blocks. 
Into one of these IK blocks we will put 
some I/O ports. 

(The more precocious of my attentive 
readers may already see that the scheme 
of Figure 3 could also be used to pre- 
set or clear a flip-flop to control an 
external device, for example, a heater, 
and all that without even using the 
data lines. If you see all that, you 
can take over this column.) See you 
next issue . 



HALF A HOHN IH THE APPLE 

Mike Rowe 

P.O. Box 3 

S. Chelmsford, MA 01824 

Last issue we reported a potential 
problem that had been discovered in the 
Apple II, relating to using PIA'a. The 
problem had been uncovered by the staff 
of EDN in the course of developing a 
system based on an Apple II board. The 
matter is not totally resolved, but the 
following is what we have heard. 

I called Steve Wozniak of Apple and 
asked about the problem. He said that 
he had sent a chip to EDN which had 
cleared up the problem. He did not in- 
dicate that there was any more to it . 

I then talked to John Conway of EDN. 
He maintained that a problem still does 
exist with Apple II interfacing to 6520 
or 6522 PIAs. It can be done, but re- 
quires the addition of a chip to slow 
down the phase signal to make it the 
equivalent of the phase 2 signal. The 
PIA can not be directly interfaced, as 
would normally be expected in a 6502- 
based system. John stated that the 
chip required costs about $7.00. 

Another angle on the picture was also 
reported to me by John. He had found a 
company on the West Coast that is mak- 
ing interfaces for the Apple II. The 
engineer there had discovered the same 
problem. 

There is a fairly complete discussion 
of the problem and the solution in the 
May 20, 1978 edition of EDN. If anyone 
has additional information to shed on 
the situation, MICRO will be happy to 
publish it. The problem does not seem 
to be all that serious, and we do not 



EDM BLASTS THE 6502 

Robert M. Tripp 

P.O. Box 3 

S. Chelmsford, MA 01824 

The May 20, 1978 issue of EDN which had 
the information on the Apple II/PIA, 
ended with a "put down" of the 6502, by 
Jack Hemenway. I feel that the attack, 
and that is what I would call it, was a 
very emotional one, based on the fact 
that the author has worked with the 
6800 extensively. His points were such 
"fatal flaws" in the 6502 as: 

the stack is limited to page 1 
the index registers are 8-bit 
the two different methods of 

indirect indexing are confusing 
there are too many addressing modes 
there is only one accumulator 

and so forth. 

Of course we can all think of things 
that we would like to have in a micro, 
but there have to be trade-offs, and a 
lot of people seem to be happy with the 
6502's set of capabilities. I suggest 
that some of us write to EDN and advise 
them of the 6502' s good points. For 
example, I prefer the stack to be only 
in page one. I have written a lot of 
code and have never used up very much 
of the stack. And, if a program goes 
wild, only page one is destroyed - not 
all of memory. So, let us set EDN 
straight by writing a few letters. The 
editor has said he would be happy to 
hear from us . 



WMMMM I IMM I UUIiUUUUUUIUIIIIIIUUIIIIUUIIUMIIIIIU I UI M MI I MIIMMIIW I II I U I U il l ll MM I IMI I l 



want to dwell on it, but we hope that 
this discussion has prevented some of 
our readers from going nuts trying to 
add a PIA to their Apple II. 
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BOCKHELL'S AIM IS PBETTT GOOD 



Rockwell International 

Microelectronic Devices 

P.O. Box 3669 

Anaheim, CA 92803 

714/632-3729 



Rockwell's AIM 65 (Advanced Interface 
Module) gives you an assembled, versa- 
tile microcomputer system with a full- 
size keyboard, 20-character display and 
a 20-character thermal printer! 

AIM 65 's terminal-style ASCII keyboard 
has 54 keys providing 69 different 
alphabetic , numeric and special func- 
tions. 

AIM 65 's 20-character true Alphanumeric 
Display uses l6-segment font monolithic 
characters that are both unambiguous 
and easily readable. 

AIM 65' s 20-column Thermal Printer 
prints on low-cost heat sensitive roll 
paper at a fast 90 lines per minute. 
It produces all the standard 64 ASCII 
characters with a crisp-printing five- 
by-seven dot matrix. AIM 65 's on-board 
printer is a unique feature for a low 
cost computer. 

The CPU is the R6502 operating a 1 MHz. 
The basic system comes with IK RAM, ex- 
pandable on-baord to 4K. It includes 
a 4K ROM Monitor, and can be expanded 
on-board to 16K using 2332 ROMs or can 
also accept 2716 EPROMs. An R6532 RAM- 
Input/Output-Timer is used to support 
AIM 65 functions. There are also two 
R6522 Versatile Interface Adaptors. 
Each VIA has two 8-bit, bidirectional 
TTL ports, two 2-bit peripheral hand- 
shake control ports and two fully pro- 
grammable interval timer/counters. 



The built-in expansion capability in- 
cludes a 44-pin Application Connector 
for peripheral add-ons and a 44-pin Ex- 
pansion Connector with the full system 
bus. And, both connectors are totally 
KIM-1 compatible! 

TTY and Audio Cassette Interfaces are 
part of the basic system. There is a 
20 ma current loop TTY interface, just 
like the KIM-1 , and an Audio Cassette 
Interface which has a KIM-1 compatible 
format as well as its own special 
binary blocked file assembler compat- 
ible format. 

The DEBUG/MONITOR includes a mini-as- 
sembler and a text editor. Editing may 
use the keyboard, TTY, cassette, print- 
er and display. The Monitor includes a 
typical set of memory display/modify 
commands. It also has peripheral de- 
vice controllers, breakpoint capability 
and single step/trace modes of debug- 
ging. An 8K BASIC Interpreter will be 
available in ROM as an option. 



AIM 65 will be available in August, 
will cost $375. 
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IS IT TINE TO SBIBW TOUS SUBSCBIPTIOI? 

If you are a subscriber to MICRO, then the two digit code following your name on 
the mailing is the number of the last issue your current subscription covers. If 
your two digit code is 05, then this is your last issue. And, you original sub- 
scribers with an 06 will be up for renewal soon. MICRO will NOT be sending out 
reminders. So, if your number is coming up, get your subscription renewal in soon. 

MICRO is published bi-monthly. The first issue was OCT/NOV 197?. Single 
copy price is $1.50. Subscriptions are $6.00 per year, 6 issues, in the USA. 
One year subscriptions to other countries are: [Payment must be in US $.] 



Surface: Canada/Mexico $7.00 Name: 
All Other Countries $8.00 

Addr: 



Air Mail: Europe $14.00 

South America $14.00 City: 

Central America $12.00 

All Other Countries $16.00 State: Zip; 



Amount: Country: 



Issues #1, 2, and 3 have been reprinted, so that back issues are now avail- 
able for all issues. The price is $1.50 per copy - USA, Canada or Mexico. 
Other countries add $.50 per copy surface or $1.25 per copy air mail. 

Your name and address will be made available to legitimate dealers, suppliers, 
and other 6502 interests so that you may be kept informed of new products, 
current developments, and so forth, unless you specify that you do not wish 
your name released to these outside sources. 

Send payment to: MICRO, P.O. Box 3, S. Chelmsford, MA 01824, USA 



INFORMATION FOR ADVERTISERS 

If you are interested in reaching the 6502 market, consider advertising in MICRO. 
Since MICRO is devoted to the 6502, its readers are actively interested in 6502 
related products and will pay attention to your material. Your ad will not be 
lost among ads for 8060' s, Z-80's, etc. Since the content of MICRO is primarily 
useful and factual reference material, each issue will be referred to many times, 
giving your ad multiple exposure. The cost of advertising in MICRO is quite low. 
Current rates are: Full Page $100.00, Half page $60.00, Quarter page $35.00. It 
is easy to place your ad. Provide camera ready copy either one-to-one or two- to- 
one in size. Photographs should be glossy and one-to-one or two-to-one in size. 
Payment must accompany the ad unless credit terms have been previously established. 
Our current circulation is over 2000: 1400+ subscriptions and 700+ to dealers. 
Dealers report that MICRO sells very well. One dealer who specializes in 6502 
products reports that MICRO outsells Kilobaud! Bulk rates to dealers are $.90 per 
copy with a minimum of ten copies. 

DEADLINES: August/September Issue: Ad reservation - July 10. Ad copy - July 17. 
October/November Issue: Ad reservation - Sept 11. Ad copy - Sept 18. 

To reserve your ad, or for further information, call Judy at 617/256-3649. 
Mailing address: MICRO Ads, P.O. Box 3, S Chelmsford, MA 01824. 
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A SLOW LIST FOI APPLE BASIC 

Bob Sander-Cederlof 

8413 Midpark Road #3072 

Dallas, TX 75240 



One of the nicest things about Apple 
BASIC is its speed. It runs circles a- 
round most other hobby systems! Yet 
there are times when I honestly wish it 
were a little slower. 

Have you ever typed in a huge program, 
and then wanted to review it for er- 
rors? You type "LIST", and the whole 
thing flashes past your eyes in a few 
seconds! That's no good, so you list 
it piecemeal — painfully typing in a 
long series like: 

LIST 0,99 
LIST 100,250 



But there j.s a better way! I wrote a 
small machine language program which 
solves our problem. After this little 
64-byte routine is loaded and activated 
the LIST command has all the features 
we wanted. 

1. The listing proceeds at a more lei- 
surely pace, allowing you to see what 
is going by. 

2. The listing can be stopped tempor- 
arily, by merely pressing the space 
bar. When you are ready, pressing the 
space bar a second time will cause the 
listing to resume. 

3. The listing can be aborted before 
it is finished, by typing a carriage 
return. 



LIST 21250,21399 

As the reviewing and editing process 
continues, you have to type these over 
and over and over . , , Ouch! 

At the March meeting of the Dallas area 
"Apple Corps" several members expressed 
the desire to be able to list long pro- 
grams slowly enough to read, without 
the extra effort of typing separate 
commands for each screen-full. One 
member suggested appending the series 
of LIST commands to the program itself, 
with a subroutine to wait for a car- 
riage return before proceeding from one 
screen- full to the next. For example: 

9000 LIST 0,99:GOSUB 9500 
9010 LIST 100,250: GOSUB 9500 



9250 LIST 21250, 21399:GOSUB 9500 

9260 END 

9500 INPUT A$: RETURN 

While this method will indeed work, it 
is time-consuming to figure out what 
line ranges to use in each LIST com- 
mand. It is also necessary to keep 
them up-to-date after adding new lines 
or deleting old ones. 



The routine as it is now coded resides 
in page three of memory, from $0340 to 
$037F. It is loaded from cassette tape 
in the usual way: *340.37FR. 

After the routine is loaded, you return 
to BASIC. The slow-list features are 
activated by typing "CALL 887". They 
may be de-activated by typing "CALL 
878" or by hitting the RESET key. 

How does it work? The commented assem- 
bly listing should be self-explanatory, 
with the exception of the tie-in to the 
Apple firmware. All character output 
in the Apple funnels through the same 
subroutine: COUT, at location $FDED. 
The instruction at $FDED is JMP ($0036) 
This means that the address which is 
stored in locations $0036 and $0037 in- 
dicates where the character output sub- 
routine really is. Every time you hit 
the RESET key, the firmware monitor 
sets up those two locations to point to 
$FDFO, which is where the rest of the 
COUT subroutine is located. If char- 
acters are supposed to go to some other 
peripheral device, you would patch in 
the address of your device handler at 
these same two locations. In the case 
of the slow-list program, the activa- 
tion routine merely patches locations 
$0036 and $0037 to point to $0340. The 
de-activation routine makes them point 
to $FDFO again. 
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Every time slow-list detects a carriage 
return being output, it calls a delay 
subroutine in the firmware at $FCA8. 
This has the effect of slowing down the 
listing. Slow-list also keeps looking 
at the keyboard strobe, to see if you 
have typed a space or a carriage re- 
turn. If you have typed a carriage re- 
turn, slow-list stops the listing and 
jumps back into BASIC at the soft entry 



iN. 



point ($E003). If you have typed a 
space, slow-list goes into a loop wait- 
ing for you to type another character 
before resuming the listing. 



That is all there is to 
turn on your Apple, type 
list program, and list to 
content! 



it! Now go 
in the slow- 
your heart's 
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ROUTINE TO SLOW DOWN APPLE BASIC LISTINGS 



OSilO C9 


8D 




SLOW 


CMPIM 


$8D 


03^2 DO 


1A 






BNE 


CHROUT 


0311 18 








PHA 




03'<5 2C 


00 


CO 




BIT 


$C000 


03^*8 10 


OE 






BPL 


WAIT 


OS^iA AD 


00 


CO 




LDA 


$CO0O 


OB'iD 2C 


10 


CO 




BIT 


$C010 


0350 C9 


AO 






CMPIM 


$A0 


0352 FO 


10 






BEO 


STOP 


0351 C9 


8D 






CMPIM 


$8D 


0356 FO 


09 






BEO 


ABORT 


0358 A9 


00 




WAIT 


LDAIM 


$00 


035A 20 


A8 


FC 




JSR 


$FCA8 


035D 68 








PLA 




035E 4C 


FO 


FD 


CHROUT 


JMP 


$FDFO 


0361 nc 


03 


EO 


ABORT 


JMP 


$E003 


036^4 2C 


00 


CO 


STOP 


BIT 


$C000 


0367 10 


FB 






BPL 


STOP 


0369 8D 


10 


CO 




STA 


$C010 


036C 30 


EA 






BMI 


WAIT 



CHECK IF CHAR IS CARRIAGE RETURN 

NO, SO GO BACK TO COUT 

SAVE CHARACTER ON STACK 

TEST KEYBOARD STROBE 

NOTHING TYPED YET 

GET CHARACTER FROM KEYBOARD 

CLEAR KEYBOARD STROBE 

CHECK IF CHAR IS A SPACE 

YES - STOP LISTING 

CHECK IF CHAR IS A CARRIAGE RETURN 

YES - ABORT LISTING 

MAKE A LONG DELAY 

CALL MONITOR DELAY SUBROUTINE 

GET CHARACTER FROM STACK 

REJOIN COUT SUBROUTINE 

SOFT ENTRY INTO APPLE BASIC 

WAIT UNTIL KEYBOARD STROBE 

APPEARS ON THE SCENE 

CLEAR THE STROBE 

UNCONDITIONAL BRANCH 



SUBROUTINE TO DE-ACTIVATE SLOW LIST 



O36E A9 FO 
0370 85 36 
0372 A9 FD 
037** 85 37 
0376 60 



OFF 



LDAIM $F0 
STAZ $36 
LDAIM $FD 
STAZ 
RTS 



$37 



RESTORE $FDFO TO 
LOCATIONS 36 AND 37 



SUBROUTINE TO ACTIVATE SLOW LIST 



0377 A9 ^0 
0379 85 36 
037B A9 03 
037D 85 37 
037F 60 



ON 



LDAIM $40 
STAZ $36 
LDAIM $03 
STAZ $37 
RTS 



SET $03^*0 INTO 
LOCATIONS 36 AND 37 



SYMBOL TABLE 
ABORT 0361 
SLOW 03^0 



CHROUT 035E OFF O36E 
STOP 0361* WAIT 0358 



ON 



0377 



SYMBOL TABLE 

SLOW 03^*0 WAIT 0358 

STOP 0364 OFF O36E 



CHROUT 035E 
ON 0377 



ABORT 0361 
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TEE MICBO SOFTHARE CATALOG: 



II 



Mike Rowe 
P.O. Box 3 
Chelmsford, MA 10824 



Name: ZZYP-PAX for PET, #1,2, and 3 
System: PET 
Memory: 8K RAM 
Language: BASIC 
Hardware: Standard PET 
description: Each of these three ZZYP- 
for PET includes a cassette with two 
games and a booklet designed to educate 
the beginning or intermediate level PET 
programmer. #1 has IRON PLANET (Rescue 
the Princess) and HANGMAN (Guess the 
secret word). Included is a 12 page 
booklet which not only contains game 
rules, but has 5 pages of useful pro- 
gramming techniques including: Direct 
Screen Access Graphics, Flashing Mess- 
ages, and Programmed Delays. #2 con- 
tains BLACK BART (a mean-mouthed poker 
player) and BLACK BRET (for blackjack - 
one or two players). #3 contains BLOCK 
and FOOTBALL both of which allow either 
two-player or play-the-PET options. 
Copies: Just released, 40 copies. 
Price: $9.95 each 

Includes: PET tape cassette, instruc- 
tions and educational manual with info 
for program modifications. 
Ordering Info: Specify ZZYP-PAX number 
Author: Terry Dossey 
Available from: 

Many PET dealers, or, 

ZZYP Data Processing 

2313 Morningside Drive 

Bryan, TX 77801 



Name: BULLS AND BEARS (tm) 
System: Apple II 
Memory: I6K 
Language: I6K BASIC 
Hardware: Apple II 

Description: A multi-player simulation 
of corporate finance. Involves deci- 
sion-making regarding production lev- 
els, financing, dividends, buying and 
selling of stock, etc. 
Copies: "Hundreds sold" 
Price: $12.00 

Includes: Game cassette and booklet. 
Ordering Info: At computer stores only 
Author: SPEAKEASY SOFTWARE LTD. 

Box 1200 

Kemptville, Ontario 

Canada KOG 1J0 

[Dealer inquiries invited] 



Name: A Variety of Programs 
System: Apple II 
Memory; Most 8K or less 
Language: Mostly Integer BASIC 
Hardware: Mostly standard Apple II 
Description: A varied collection of 
short programs. Some utilities, some 
educational. Included are: ALPHA SORT 
MUSIC ROUTINE, STOP WATCHBASIC DUMP, 
MULTIPLY, ONE-ARM-BANDIT, ... 
Copies: Varies, up to about 20. 
Price: $7.50 to $10.00 each. 
Includes: Apple II cassette and pro- 
gram listing. 

Ordering Info: Write for catalog. 
Author(s): Not specified. 
Available from: 

Apple PugetSound Prog. Lib. Exch. 

6708 39th Avenue SW 

Seattle, WA 98136 



Name: HELP Information Retrieval 
System: KIM-1 
Memory: Basic KIM-1 
Language: Assembler and HELP 
Hardware: KIM-1, terminal, cassettes 
Description: Permits the user to cre- 
ate a data base on cassette , and then 
perform a variety of searches on the 
data base. May make six simultaneous 
tests on FLAGS associated with the data 
plus one test on each of the six data 
fields. Permits very complex retrieval 
from the data base. Includes ULTRATAPE 
which reads/writes at 100 char/sec, 12 
times the normal KIM rate. 
Copies: 100+ 
Price: $15.00 

Includes: Cassette tape, 36 page User 
Manual, a Source Listing book and a 
Functions Manual which explains the 
operation of the HELP language. 
Ordering Info: Specify HELP Info Ret. 
Author: Robert M. Tripp 
Available from: 

Many 6502 Dealers, or, 

The COMPUTERIST, Inc. 

P.O. Box 3 

S. Chelmsford, MA 01824 



\ 
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BEEPER BLOOPER AMD OTHER MICROBES 



We apologize to the many readers who 
have experienced problems trying to get 
the simple "KIM Beeper" to work. There 
was an error in the listing. The cause 
of the error was trivial; the effect 
was devastating! "A KIM BEEPER" by 
Gerald C. Jenkins appeared in issue #4, 
on page 43- The corrected listing is 
given below, in full. You would have 
to examine the alphabetic portion of 
the two listings quite closely to see 
error. The line at address 0118 read: 

BIT TIME but should have read: 

BIT TIMER 

A minor error, only one letter missing, 
but look at the difference in the list- 
ings from that point on. A two byte 
instruction was generated instead of 
the correct three bytes. This, in add- 
ition to being wrong, caused every sub- 
sequent location to be displaced by one 
byte. 



In this case, the error was our fault. 
We try to check the listings presented 
in MICRO, but we do not have the equip- 
ment or time to run every program. We 
have caught some errors in programs 
submitted to us, and we test what we 
can. 



There was a slight bug in "A Complete 
Morse Code Send/ Receive Program for the 
KIM-1" by Marvin L. De Jong. The sec- 
ond line of the listing read: 

0057 A9 FF LDAIM $FF 

but should have been: 



0057 A9 40 



LDAIM $40 



0100 



ORG $0100 



The only effect this will have will be 
to set an incorrect initial code speed. 

In "An Apple II Programmer's Guide" by 
Rick Auricchio, the paragraph which 
states that "control K, followed by 5" 
sets the keyboard to device 5, is in 
error. It is really "5, followed by 
control K" . 



0100 








TIME 


• 


$00FF 


0100 








NOTE 


• 


$00C8 


0100 








PBD 


• 


$1702 


0100 








PBDD 


• 


$1703 


0100 








TIMER 


• 


$1707 


0100 


A9 


FF 




BEEP 


LDAIM 


TIME 


0102 


8D 


07 


17 




STA 


TIMER 


0105 


A9 


01 






LDAIM 


$01 


0107 


8D 


02 


17 




STA 


PBD 


010A 


8D 


03 


17 




STA 


PBDD 


010D 


4D 


02 


17 


TONE 


EOR 


PBD 


0110 


8D 


02 


17 




STA 


PBD 


0113 


AO 


C8 






LDYIM 


NOTE 


0115 


88 






TONEX 


DEY 




0116 


DO 


FD 






BNE 


TONEX 


0118 


2C 


07 


17 




BIT 


TIMER 


011B 


10 


FO 






BPL 


TONE 


011D 


A9 


01 






LDAIM 


$01 


011F 


8D 


02 


17 




STA 


PBD 


0122 


A9 


FF 






LDAIM 


TIME 


0124 


8D 


07 


17 




STA 


TIMER 


0127 


2C 


07 


17 


NOTONE 


BIT 


TIMER 


012A 


10 


FB 






BPL 


NOTONE 


012C 


CA 








DEX 




012D 


DO 


D1 






BNE 


BEEP 


012F 


60 








RTS 





START TIMER FOR 1/4 SECOND TONE 
USING INTERVAL TIMER 
SET OUTPUT TONE OFF 



TOGGLE OUTPUT 

SET TO COUNT FOR NOTE LENGTH 

$C8 = 500 HZ 

CYCLE IN DOWN COUNTER 

TEST 1/4 SECOND UP 

CONTINUE TONE IF NOT DONE 

TURN TONE OFF 

START WAIT BETWEEN BEEPS 

WAIT FOR TIME OUT 

DECREMENT NUMBER OF BEEPS COUNTER 
ANOTHER BEEP OR DONE 
RETURN TO CALLING ROUTINE 



Ni 
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A BASIC 6302 DISASSCHBLCR 
FOR APPLE AND PET 

Michael J. McCann 
28 Ravenswood Terrace 
Cheektowaga, NY 14225 



A disassembler is a program that ac- 
cepts machine language (object code) as 
input and produces a symbolic represen- 
tation that resembles an assembler 
listing. Although disassemblers have a 
major disadvantage viz. , that they can- 
not reproduce the labels used by the 
original programmer, they can prove 
very useful when one is attempting to 
transplant machine code programs from 
one 6502 system to another. This ar- 
ticle describes a disassembler program 
written in Commodore BASIC. 

The disassembler (see listing and sam- 
ple run) uses the mnemonics listed in 
the Oct-Nov 1977 issue of MICRO. The 
output is in this format: (address) 
(byte#1) (byte#2) (byte#3) (mnemonic) 
(bytes #2 and #3) 

The address is outputted in decimal 
(base 10). The contents of the byte(s) 
making up each instruction are printed 
in hexadecimal (base 16) between the 
address and the mnemonic. In three 
byte instructions the high order byte 
is multiplied by 256 and added to the 
contents of the low order byte, giving 
the decimal equivalent of the absolute 
address. This number is printed in the 
(bytes #2 and #3) field. In two byte 
instructions the decimal equivalent of 
the second byte is printed in the 
(bytes #2 and #3) field. 



Programming Comments 

Lines 10-40 initialize the BY% and MN$ 
arrays (BY$ contains the number of 
bytes in each instruction and MN$ con- 
tains the mnemonic of each instruction) 

Lines 60-80 initialize the decimal to 
hexadecimal conversion array (C0$) 

Lines 100-130 input the starting ad- 
dress 

Lines 1000-1050 decimal to hexadecimal 
conversion subroutine 

Lines 3000-5030 do the disassembly 



Lines 3010-3030 take care of illegal 
operation codes 

Line 3050 transfers control to one of 
three disassembly routines, the choice 
is determined by the number of bytes in 
the instruction 

Lines 6000-6290 contain the data for 
the arrays 

Although this was originally written in 
Commodore BASIC, it will work with the 
APPLESOFT BASIC of the APPLE computer. 



SAMPLE RUN 

RUN 

START ADDRESS 

? 64004 

64004 4C 7£ E6 JMP 59006 

64007 AD OA 02 LDA 522 

64010 FO 08 BEQ 8 

64012 30 04 BMI 4 



^ 
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1 REM A 6502 DISASSEMBLER 

2 REM BY MICHAEL J. MCCANN 

? REM WILL RUN ON AN 8K PET OR AN APPLE WITH APPLESOFT BASIC 

10 DIM MN$(256)By?(256),CO$(l6) 

20 FOR E=0 TO 255 

30 READ KN$(E) .BY'ME) 

^0 NEXT E 

60 FOR ErO TO 15 

70 READ CO$(E) 

80 NEXT h 

100 PRINT CHR$(1'<7) 

110 PRINT: PRINT "START ADDRESS" 

120 INPUT AD 

1?0 PRINT 

140 1=0 

150 GOTO 3000 

1000 SX=INT(DC/16) Note: The two PRINT statements with 

1010 UN=DC-(SX»16) an « are required by APPLESOFT to 

1020 SX$=CO$(SX) prevent the first output line from 

1030 UN$=CO$(UN) being mis-aligned. They may not be 

1040 HX$=SX$+UN$ required by the PET BASIC. 

1050 RETURN 

3000 IF 1=16 THEN 5050 

3005 1=1+1 

3010 IB=PEEK(AD) 

3015 IF MN$(IB)<>"NULL" GOTO 3050 

3020 IB=DC:GOSUB 1000 

3030 PRINT AD;TAB(8);HX$;"*" 

3055 AD=AD+1 

3040 GOTO 5030 

3050 ON BYit(lB) GOTO 3060,3090,4050 

3060 DC=1B:G0SUB 1000 

3070 PRINT AD;TAB(8);HX$;TAB(17) ;MN$(IB) 

3075 AD=AD+1 

3080 GOTO 5030 

3090 DC=IB:GOSUB 1000 

4000 B1$=HX$ 

4010 DC=PEEK(AD+1) :GOSUB 1000 

4020 b2$=HX$ 

4030 PRINT AD;TAB(8);B1$;" " ;B2$;TAB( 17) ;MN*(IB) ;TAB(21) ;PEEK( AD+1) 

4035 AD=AD+2 

4040 GOTO 5030 

4050 DC=IB:GOSUB 1000 

4060 B1$=HX$ 

4070 DC=PEEK(AD+1):G0SUB 1000 

4080 B2$=HX$ 

4090 DC=PE£K(AD+2) :GOSUB 1000 

5000 B3$=HX$ 

5010 0P=PEEK(AD+1)+(PEEK(AD+2)«256) 

5020 PRINT AD;TAB(8);B1$;" ";E2$;" " ;B3$;TAB(17) ;MN$(IB) ;TAB(21 ) ;0P 

5025 AD=AD+3 

5030 GOTO 3000 

5050 INPUT A 

5060 PRINT 

5070 IrO 

5080 GOTO 3000 
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6000 


DATA 


6010 


DATA 


6020 


DATA 


6030 


DATA 


6040 


DATA 


6050 


DATA 


6060 


DATA 


6070 


DATA 


6080 


DATA 


6090 


DATA 


6100 


DATA 


6110 


DATA 


6120 


DATA 


6130 


DATA 


6110 


DATA 


6150 


DATA 


6160 


DATA 


6170 


DATA 


6180 


DATA 


6190 


DATA 


6200 


DATA 


6210 


DATA 


6220 


DATA 


62^0 


DATA 


6210 


DATA 


6250 


DATA 


6260 


DATA 


6270 


DATA 


6280 


DATA 


6290 


DATA 



BRK,1,GRA1X,2,NULL,0,NULL,0,NULL,0,0RAZ,2,ASL,2,NULL,0,PHP,1 

ORAIM , 2 , ASLA , 1 , NULL , , NULL , , ORA , 3 , ASL , ? , NULL , , BPL , 2 , ORAI Y , 2 

NULL , , NULL , , NULL , , ORAZX , 2 , ASLZX , 2 , NULL , , CLC , 1 , GRAY , 3 

NULL , , NULL , , NULL , , OR AX , ? , ASLX , 3 , NULL , , JSR , 3 , ANDIX , 2 , NULL , 

NULL , , BITZ , 2 , ANDZ , 2 , ROLZ , 2 , NULL , , PL? , 1 , ANDIM , 2 , ROLA , 1 , NULL , 

BIT , 3 , AND , 3 , ROL , 3 , NULL , , BMI , 2 , ANDI Y , 2 , NULL , , NULL, , NULL , 

ANDZX , 2 , ROLZX , 2 , NULL , , SEC , 1 , ANDY , 3 , NULL , , NULL , , NULL , , ANDX , 3 

ROLX , 3 , NULL , , RTl , 1 , EORIX , 2 , NULL , , NULL , , NULL , , EGRZ , 2 , LSRZ , 2 

NULL , , PHA , 1 , EORIM , 2 , LSRA , 1 , NULL , , JMP , 3 , EGR , 3 , LSR , 3 , NULL , 

BVC , 2 , EORI Y , 2 , NULL , , NULL , , NULL , , EORZX , 2 , LSRZX , 2 , NULL , 

CLC , 1 , EOR Y , 3 , NULL , , NULL , , NULL , , EORX , 3 , LSRX , 3 , NULL , , RTS , 1 

ADCIX,2,NULL,0,NULL,0,NULL,0,ADCZ,2,R0RZ,2,NULL,0,PLA,1,ADCIM,2 

RGR A , 1 , NULL , , JMI , 3 , ADC , 3 , ROR , 3 , NULL , , BVS , 2 , ADCI Y , 2 , NULL , 

NULL , , NULL , , ADCZX , 2 , RGRZX , 2 , NULL , , SEI , 1 , ADCY , 3 , NULL , , NULL , 

NULL , , ADCX , 3 , RGRX , 3 , NULL, , NULL , , STAIX , 2 , NULL , , NULL , , STYZ , 2 

STAZ , 2 , STXZ , 2 , NULL , , DEY , 1 , NULL , , TXA , 1 , NULL , , STY , 3 , STA , 3 

STX,3,NULL,0,BCC,2,STAIY,2,NULL,0,NULL,0,STYZX,2,STAZX,2,STXZY,2 

NULL, 0,TYA,1, STAY, 3, TXS,1, NULL, 0, NULL, O.STAX, 3, NULL, 0, NULL, 

LDYIM , 2 , LDAIX , 2 , LDXIM , 2 , NULL , , LDYZ , 2 , LDAZ , 2 , LDXZ , 2 , NULL , 

TAY, 1,LDAIM,2,TAX,1 ,MULL,0 ,LDY, 3,LDA, 3 ,LDX,3 ,NULL,0 ,BCS,2 

LDAIY , 2 , NULL , , NULL , , LDYZX , 2 , LDAZX , 2 , LDXZ Y , 2 , NULL , , CLV , 1 

LDAY , 3 , TSX , 1 , NULL , , LDYX , 3 , LDAX , 3 , LDXY , 3 , NULL , , CPYIM , 2 , CMPIX , 2 

NULL,0,NULL,0,CPYZ,2,CMPZ,2,DECZ,2,NULL,0,INY,1,CMPIM,2,DEX,1 

NULL , , CPY , 3 , CMP , 3 , DEC , 3 , NULL , , BNE , 2 , CKPI Y , 2 , NULL , , NULL , 

NULL , , CMPZX , 2 , DECZX , 2 , NULL , , CLD , 1 , CMPY , 3 , NULL , , NULL , , NULL , 

CMPX , 3 , DECX , 3 , NULL , , CPXIM , 2 , SBCIX , 2 , NULL , , NULL ,0 , CPX , 2 , SBCZ , 2 

1NCZ,2,NULL,0,INX,1 ,SBC1M, 2,N0P, r,NULL,0,CPX , 3 ,SBC, 3, INC,3 

NULL,0,BEQ,2,SfiCIY,2,NULL,0,NULL,0,NULL,0,SBCZX,2,INCZX,2,NULL,0,SED,1 

SBCY , 3 , NULL , , NULL , , NULL , , SBCX , 3 , INCX , ? , NULL , 

0,1,2,3,1,5,6,7,8,9,A,B,C,D,E,F 
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PET SCHEMATICS 

Another First From "PET-SHACK". 

For only $35 you get: 

24"X30'^ schematic of the CPU board, 
plus oversized scliematics of the 
Video Monitor and Tape Recorder, 
plus complete Parts layout — all 
Accurately and Painstakingly drawn 
to the Minutest detail. 

Send check or money order 
TO: PET-SKACK Software House 

Div Marketing And P'esearch Co. 

P. 0. 15ox 9G6 

Mishawaka, lU 4fi5AA 




Personal Computer 
8K RAM 



QOMPUTER 

• MOS 6502 M.cropiocessof Controlled 

• integratecJ CRT, ASCII Keyboarrt/Cassette 

• Full 8K Exiended BASIC in ROM 

• 8K IStandarrtl m 32K RAM Exuans.on 

• Peripherals 'Prinier /F lopPv ) Available Summer 

• Can be mier^acetl wiih S 100 BUS Devices 

• Utilises IEEE 488 BUS lor mielligern control 
' ot Periphfial Devices 

• 64 Built in Graphics Char for Games/Charts 

• Full File Control und?r Operating Syslenn 

• TOO MANY OTHER FEATURES TO LIST! 



FOR ADDITIONAL INFO CALL 
AND REQUEST OUR PET INFOR 
MATION PACKAGE! 



NEECO HAS A LARGE. EVER EXPANDING LIBRARY OF PRO 
GRAMS FOR THE PET CALL AND REQUEST OUR PET 
LIBRARY LISTINGS»SOFTWARE AUTHORS»NE ECO OFFERS 
25% ROYALTIES FOR ACCEPTATLE PET PROGRAMSH'* 



THE KIM-1 
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"Computer on a Board" — Instant Delivery 

• 6502 Microprocessor C6ntrolle<l 

• 13 Addressing Modes Multiple Interrupts 

• 65K Bytes Address Range 

• 2MCS 6530 Willi 1024 Bytes ROM each, 64 
Bytes RAM. 15 I/O Pins, timer Monitor and 
Operating Programs are in ROM. 

• TTY and Cassette Interface • 23 Key Pad and 
6 Character LED display • 75 Bi Directional 
TTL lines MUCH MORE! "Attach a power 
supply and enter the world of Microcomputers 
and the future" ^ commodors 



MOiT MAJOR BRANDS OfLAICUIA lORS TOO! 



*CN BNLAND BfCTRONICS CO. 

248 Bridge Street *^ea Code (4i3i 
Springfield, Mass. 



Autti 



irtd PET SalM & StM 



739-9626 



■ Guaranteed Dehverv" 
Schedules for all ot our 
PET CustomefS Call 
for our PET Package 



SYNERTEK' 

Synertek Incorporated 

P.O. Box 552 
Santa Clara, CA 95052 



Synertek has announced a new 6502-based 
microcomputer system with the following 
features: 

FULLY-ASSEMBLED AND COMPLETELY INTE- 
GRATED SYSTEM that's ready-to use as 
soon as you open the box. 

28 DOUBLE-FUNCTION KEYPAD INCLUDING UP 
TO Ik "SPECIAL" FUNCTIONS. 



IK BYTES OF 2114 STATIC RAM on-board 
with sockets provided for immediate ex- 
pansion to 4K bytes on-board, with to- 
tal memory expansion to 65,536 bytes. 

USER PROM/ROM: The system is equipped 
with 3 PROM/ROM expansion sockets for 
2316/2332 ROMs or 2716 EPROMs. 



EASY-TO-VIEW 6-DIGIT HEX LED DISPLAY. 

KIM-1 HARDWARE COMPATIBILITY. 

The powerful 6502 8-bit MICROPROCESSOR 
whose advanced architectural features 
have made it one of the largest selling 
"micros" on the market today. 

THREE ON-BOARD PROGRAMMABLE INTERVAL 
TIMERS available to the user for timing 
loops, watchdog functions, and real- 
ime communication protocols. 

4K BYTE ROM RESIDENT MONITOR and Oper- 
ating Programs. 



ENHANCED SOFTWARE with simplified user 
interface. 

STANDARD INTERFACES INCLUDE: 

- Audio Cassette Recorder Interface 
with Remote Control (Two modes: 135 
Baud KIM-1 compatible. Hi -speed 2400 
Baud). 

- Full Duplex 20mA Teletype Interface 

- System Expansion Bus Interface 

- TV Controller Board Interface 

- CRT Compatible Interface 

APPLICATION PORT: 15 Bi-directional TTL 
lines for user applications with expan- 
sion capability for added lines. 



Single 5 Volt power capability is all 
that is required. 



KBD 

ALPHA 

NUMERIC 





TV 








1 






RF adapter] 




1 


TV/KBD 
INT-FCE 
MODULE 



AUDIO 
CASSETTE 



EXPANSION PORT FOR ADD-ON MODULES (50 
I/O Lines in the basic system). 



RESIDENT 

ASSE MBLER 

TEXT 



SYN 2316/2332 
ROM 



PROM: 
SYN 2716 
Tl 2532 



SRAM 
EXPANSION KIT 
SYN 2114-1 IK X 4 



AUX APPLICATIONS CONNECTOR 



OPTIONAL AUX PORT A 
OPTIONAL AUX PORT B ^ 



AUDIO 1 


CAS 




rrv 




CRT 









3^Ji 



CONTROL BUS 



3t 



6&22 

EXPANSION 
> SOCKET (TIMER) 



V 



ADDRESS BUS - A00-A1S 




EXPANSION PORT 



_S RAM J 



IZSTVlZZi. 



\^ 



DATA BUS DOgPO? 



XL 



PORT EXPANSION 
KIT 



GS22 

VIA 
(TIMER) 



DATA BUS - D00-D07 



n 



ADDRESS BUS ■ ApqAIS 



xc 



ADDRESS BUS A0O-A15 



w 



K: 



fiS33 
MEM. 
TIMER 



\ 



TT 



?y7> — I 



XTAL 



DATA BUS - D0O-D07 



CONTROL BUS 



J 6S02 



I 



\7 



CONTROL 
LOGIC 



CONTROL BUS 



I SYNERTEK 

I SYSTBWSCORP. 



BIHIBIBIHIB 



DISPLAY DRIVERS 



28-KEY 
KEYPAD 



-frDIGITHEX 
DISPLAY 



\ 
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APPLAYER NUSIC IINITERPRETER 

Richard F. Suitor 

166 Tremont Street 

Newton, MA 02158 



There have been several routines for 
making music with the APPLE II, includ- 
ing one in MICRO and one in the APPLE 
documentation. The program described 
here is more than a tone-making rou- 
tine, it is a music interpreter. It 
enables one to generate a table of 
bytes that specify precisely the half- 
tone and duration of a note with a sim- 
ple coding. Its virtue over the sim- 
pler routines is similar to that of any 
interpreter (such as Sweet 16, or, more 
tenuously, BASIC) over an assembler or 
hand coding - it is easier to achieve 
one's goal and easier to decipher the 
coding six months later. 

The immediate motivation for this in- 
terpreter was Martin Gardner's Mathe- 
matical Games Column in the April 1978 
Scientific American. Several types of 
algorithmically generated music are 
discussed in that column; this program 
provides a means of experimenting with 
them as well as a convenient method of 
generating familiar tunes. 

The program is written in 6502 assembly 
language . It would be usable on a sys- 
tem other than the APPLE if a speaker 
were interfaced in a similar way. Ac- 
cessing a particular address (C030) 
changes the current through the APPLE 
speaker from on to off or from off to 
on; it acts like a push button on/off 
switch (or, of course, a flip-flop). 
Thus this program makes sound by acces- 
sing this address periodically with an 
LDA CO3O. Any interface that could 
likewise be activated with a similar (4 
clock cycles) instruction could be 
easily used. A different interfacing 
software procedure would change the 
timing and require more extensive mod- 
ification. 

The tone is generated with a timing 
loop that counts for a certain number 
of clock cycles, N (all of the cycles 
in a period including the toggling of 
the speaker are counted). Every N 
cycles a 24 bit pattern is rotated and 
the speaker is toggled if the high or- 
der bit is set. Four cycles are wasted 
(to keep time) if the bit is not set. 
There is a severe limit to the versa- 
tility of a waveshape made from on/off 
transitions, but tones resembling a 



variety of (cheap) woodwinds and pipes 
are possible, with fundamentals ranging 
from about 20 Hz to 8 KHz. 

Applayer interprets bytes to produce 
different effects. There are two types 
of bytes: 



Note bytes Bit 
Control bytes Bit 



7 Not Set 
7 Set to 1 



A note byte enables one to choose a 
note from one of 16 half tones, and 
from one to eight eighth notes in dur- 
ation. The low order nybble is the 
half-tone; the high order nybble is the 
duration (in eighth notes) minus one. 

Bit 7 6 5 4 3210 
Note Byte (Duration) (Half-Tone) 

The control bytes enable one to change 
the tempo, the tonal range which the 16 
half-tones cover, rests, the waveshape 
of the tone and to jump from one por- 
tion of the table to another. 
Control Byte Table 



HEX DECIMAL 

81 129 

82 130 

83 131 
9N 144+N 

AN 160+N<32 

CN 192+N<62 

FF 255 



^ 
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FUNCTION 

The next three bytes are 
the new waveshape pattern 
JMP - New table address 
follows. Low order byte 
first , then page byte 
JSR - new table address 
follows. When finished, 
continuing this table at 
byte after address byte 
N is the number of I6th 
notes to be silent at the 
tail of a note. Controls 
rests and note definition 
Selects the tonal range. 
Half-tone #0 is set to 
one of 32 half-tones giv- 
ing a basic range of four 
octaves 

Controls the tempo. Len- 
gth of a note is propor- 
tional to N. Largest 
value gives a whole note 
lasting about 3-5 sec. 
RETURN. Stop interpret- 
ing this table. Acts as 
return for 83 JSR in- 
struction or causes re- 
turn from Applayer. 



^ 



To use Applayer with sheet music, one 
must first decide on the range of the 
half tones. This must sometimes be 
changed in the middle of the song. For 
example, the music for "Turkey in the 
Straw", which appears later, was in the 
key of C; for the first part of 
the song I used the following table. 

NOTE CDEFGABCD 
TONE #0 2M579BCE 

The tonal range was set with a control 
byte, BO. In the chorus, the range of 
the melody shifts up; there the tonal 
range is set with a B7 and the table is 

NOTE GABCDEFGA 
TONE# 02i<579ACE 

(The actual key is determined by the 
wave shape pattern as well as the tonal 
range control byte. For the pattern 
used, 05 05 05, the fundamental for the 
note written as C would be about 3^6Hz, 
which is closer to F.) 

Rests can be accomplished with a 9N 
control byte and a note byte. For ex- 
ample, 9^* 10 is a quarter rest, 98 30 
is a half rest etc. This control is 
normally set at 91 for notes distinct- 
ly separated, or to 90 for notes that 
should run together. 

Let's try to construct a table that 
Applayer can use to play a tune. We 
can start simply with "Twinkle, Twinkle 
Little Star". That tune has four lines 
the first and fourth are identical , as 
are the second and third. So our table 
will be constructed to: 



The second line can follow at 0B10: 
OHIO- 17 17 15 15 U ^^ 32 FF 

Now we can start on step 1. I'll sug- 
gest the following to start; you'll 
want to make changes: 

0320- BO 81 05 05 05 EO 91 

The above determines the tonal range, 
the tone wave shape, the tempo, and a 
sixteenth note rest out of every note 
to keep the notes distinct. To run 
them together, use 90 instead of 91. 
Steps 2-6 can follow immediately: 

0B20- 83 

0B28- 00 OB 83 10 OB 83 10 OB 
0B30- 83 00 OB FF 

That completes the table for "Twinkle, 
Twinkle". We now have to tell Applayer 
where it is and turn it on. From BASIC 
we must set up some zero page locations 
first and then JSR to Applayer: 
(Don't forget to set LOMEM before run- 
ning; 2900 will do for this table.) 



100 POKE 

110 POKE 

120 POKE 

130 POKE 

IMO POKE 
120 CALL 



19,32 

20,11 

1,8 

17,8 

16,0 
23^16 



(low order byte of the 

table address, 0B20) 
(high order byte of the 

table address, 0B20) 
(high order byte of 1st 
pg of Applayer program) 

(16 & 17 contain the 
tone table address) 

(jump subroutine to 
092A) 



1. Set up the tonal range, tone pat- 
tern and tempo that we want 

2. JSR to a table for the first line 

3. JSR to a table for the second line 
k. Repeat #3 

5. Repeat #2 

6. Return 

7. First line table and return 

8. Second line table and return 

Since unfortunately Applayer is not 
symbolic, it will be easier to con- 
struct the tables in reverse, so that 
we can know where to go in steps 2-6. 
The note table for the first line can 
go at OBOO and looks like: 

OBOO- 10 10 17 17 19 19 37 15 
0B08- 15 14 14 12 12 30 FF FF 



We can also make a short program in as- 
sembly language to set up the zero page 
locations. See routine ZERO, location 
09C0 in the listing. 



This initialization can be used most 
easily by reserving the AOO page, or 
much of it, as a "Table of Contents" 
for the various note tables elsewhere 
in memory. To do this with "Twinkle, 
Twinkle" we add the following table: 

0A20- 02 20 OB 

Which jumps immediately to the table at 
0B20. With this convention, we can 
move from table to table by changing 
only the byte at 9D0 (2512 decimal). 



^ 
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We can use this initialization from 
BASIC, too, by changing the last in- 
struction to RTS: 



100 POKE 2512,32 
110 POKE 2538,96 
120 CALL 2496 



LOW ORDER TABLE BYTE 
CHANGE INST. AT 09EA 
TO RTS. 



From the monitor: »9D0:20 

»9C0G 
will do. 

If, as I, you quickly tire of "Twinkle, 
Twinkle", you may wish to play with 
"Turkey in the Straw". The table fol- 
lows; its structure will be left as an 
exercise . 

From the monitor: *9D0:0 

»9C0G 
will play it. 



OAOO; 



03 90 OF 83 90 OF FF 



OFOO 


90 


1C 


1A 


92 


38 


90 


18 


1A 


0F08 


18 


13 


10 


11 


91 


13 


13 


33 


0F10 


33 


90 


18 


1A 


92 


3C 


3C 


90 


0F18 


1C 


1A 


18 


1A 


91 


1C 


38 


10 


0F20 


38 


90 


1C 


1A 


92 


38 


90 


18 


0F28 


1A 


18 


13 


91 


10 


11 


13 


53 


0F30 


^3 


90 


18 


1A 


91 


3C 


3F 


90 


0F^8 


IF 


1C 


18 


1A 


1C 


18 


92 


3A 


OFMO 


94 


78 


91 


FF 










0F50 


01 


55 


55 


55 


FF 








0F58 


01 


05 


05 


05 


FF 








0F60 


15 


18 


18 


15 


78 


FF 






OF68 


16 


1A 


1A 


16 


7A 


FF 






0F70 


ID 


ID 


ID 


ID 


18 


18 


18 


18 


0F78 


35 


15 


15 


33 


90 


11 


13 


91 


0F80 


15 


18 


18 


18 


90 


18 


15 


11 


0F88 


13 


91 


15 


15 


13 


13 


71 


FF 


0F90 


03 


58 


OF 


D4 


BO 


83 


00 


OF 


0F98 


B7 


83 


60 


OF 


83 


50 


OF 


83 


OFAG 


60 


OF 


83 


50 


OF 


83 


68 


OF 


0FA8 


83 


50 


OF 


83 


68 


OF 


83 


50 


OFBO 


OF 


83 


70 


OF 


FF 
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Tone Table 








0800 


AO 


03 


68 


03 


38 


03 


06 


03 


0808 


EO 


02 


B8 


02 


90 


02 


68 


02 


0810 


48 


82 


28 


02 


08 


02 


E8 


01 


0818 


DO 


01 


B4 


01 


9C 


01 


84 


01 


0820 


70 


01 


5C 


01 


48 


01 


34 


01 


0828 


24 


01 


14 


01 


04 


01 


F4 


00 


0830 


E8 


00 


DA 


00 


CE 


00 


C2 


00 


0838 


B8 


00 


AE 


00 


A4 


00 


9A 


00 


0840 


92 


00 


8A 


00 


82 


00 


7A 


00 


0848 


74 


00 


6D 


00 


67 


00 


51 


00 


0850 


5C 


00 


57 


00 


52 


00 


4D 


00 


0858 


49 


00 


45 


00 


41 


00 


3D 


00 



5PEHKEH5Y 
SDFTUJHFE 



for APPLE-II 

now available at 
fine computer stores 



DEALER INQUIRIES INVITED. 



SPEAKEASY SOFTWARE LTD. 

BOX 1220 
KEMPTVILLE, ONTARIO KOG IJO 





^ 









APPLAYER MUSIC INTERPRETER 








R. F. 


SUITOR 


APRIL 1978 








TIMING 


LOOP 












LOCATIONS 


THROUGH 


7 ARE SET BY CALLING ROUTINE 








8 CYCLE LOOP 


TIMES ' 


i REG PLUS 0-7 CYCLES 








DETERMINED BY ENTRY 


POINT 


0860 








ORG 


$0860 




0860 


EA 




TIME 


NOP 






0861 


EA 






NOP 






0862 


EA 






NOP 






0863 


88 




TIMEA 


DEY 






086i4 


85 


^45 




STA 


$00145 


ANY INNOCUOUS 3 CYCLE INSTRUCTION 


0866 


DO 


FB 




BNE 


TIMEA 


BASIC 8 CYCLE LOOP 


0868 


FO 


05 




BEQ 


TIMEC 




086A 


88 




TIMEB 


DEY 






086B 


EA 






NOP 






066C 


EA 






NOP 






086D 


DO 


FH 




BNE 


TIMEA 




086F 


2k 


Ok 


TIMEC 


BIT 


$000i4 


START CHECK OF BIT PATTERN 


0871 


38 






SEC 




IN 2, 3, AND 14 


0872 


30 


02 




BMI 


TIMED 




087^4 


EA 






NOP 






0875 


18 






CLC 






0876 


26 


02 


TIMED 


ROL 


$0002 




0878 


26 


03 




ROL 


$0003 




087A 


26 


OH 




ROL 


$000M 




087C 


90 


03 




BCC 


TIMEE 




087E 


AD 


30 CO 




LDA 


$C030 


TOGGLE SPEAKER 


0881 


C6 


06 


TIMEE 


DEC 


$0006 


DURATION OF NOTE IN 


0883 


DO 


05 




BNE 


TIMEF 


NO. OF CYCLES IN LOCATIONS 


0885 


C6 


07 




DEC 


$0007 


6 AND 7 


0887 


DO 


05 




BNE 


TIMEG 




0889 


60 






RTS 






088A 


EA 




TIMEF 


NOP 




TIMING EQUALIZATION 


088B 


EA 






NOP 






088C 


DO 


00 




BNE 


TIMEG 




088E 


hH 


05 


TIMEG 


LDY 


$0005 




0890 


6C 


00 00 




JMI 


$0000 










SCALING ROUTINE FOR 


CYCLE DURATION 








CALCULATION 


LOC 6, 


7 = A REG » LOC 50,51 


0893 


85 


M5 


SCALE 


STA 


$00145 




0895 


A9 


00 




LDAIM 


$00 




0897 


85 


06 




STA 


$0006 




0899 


85 


07 




STA 


$0007 




089B 


A2 


05 




LDXIM 


$05 




089D 


18 






CLC 






089E 


66 


07 


SCALEX 


ROR 


$0007 




08A0 


66 


06 




ROR 


$0006 




08A2 


H6 


^45 




LSR 


$00145 




OQkH 


90 


OC 




BCC 


SCALEA 
5:32 


J 



i^9@^(£)i 



08A6 


A5 


06 




LDA 


$0006 




^ 


08A8 


65 


50 




ADC 


$0050 






08AA 


85 


06 




STA 


$0006 






08AC 


A5 


07 




LDA 


$0007 






08AE 


65 


51 




ADC 


$0051 






08B0 


85 


07 




STA 


$0007 






08B2 


CA 




SCALEA DEX 








08B3 


10 


E9 




BPL 


SCALEX 






08B5 


E6 


07 




INC 


$0007 


DUE TO SIMPLE LOGIC IN TIMING ROUTINE 




08B7 


60 






RTS 








08BE 








ORG 


$08BE 












NOTE 


PLAYING 


ROUTINE 










Y REG 


HAS HALF-TONE 


INDEX 




08BE 


A5 


12 


NOTE 


LDA 


$0012 


NOTE LENGTH 




08C0 


85 


52 




STA 


$0052 






08C2 


A5 


OF 




LDA 


$000F 


NOTE TABLE OFFSET 




08CM 


85 


10 




STA 


$0010 






08C6 


HI 


10 




LDAIY 


$0010 


LOW ORDER BYTE OF MACHINE 




08C8 


38 






SEC 




CYCLES PER PERIOD 




08C9 


85 


54 




STA 


$0054 






08CB 


E9 


35 




SBCIM 


$35 


CYCLES USED UP TIMING OVERHEAD 




OBCD 


85 


08 




STA 


$0008 






08CF 


C8 






INY 








08D0 


31 


10 




LDAIY 


$0010 


HIGH ORDER BYTE OF MACHINE 




08D2 


85 


55 




STA 


$0055 


CYCLES PER PERIOD 




08D^ 


E9 


00 




SBCIM 


$00 






08D6 


85 


09 




STA 


$0009 






08D8 


A9 


00 




LDAIM 


$00 






08 DA 


85 


50 




STA 


$0050 






08 DC 


85 


51 




STA 


$0051 






08DE 


85 


53 




STA 


$0053 






08E0 


AO 


10 




LDYIM 


$10 






08E2 


20 


86 FB 




JSR 


$FB86 












THIS 


PART IS 


PARTICULAR TO APPLE, THE DIVIDE 










ROUTINE AT FB86 IS 


USED. OR, PROVIDE A ROUTINE 










WHICH 


DIVIDES LOCS 


54,55 BY 52,53 AND LEAVES THE 










RESULT IN 50 


,51 FOR 


THE SCALING ROUTINE, 




08E5 


A5 


08 




LDA 


$0008 






08E7 


M8 






PHA 








08E8 


46 


09 




LSR 


$0009 






08EA 


6A 






RORA 








08 EB 


46 


09 




LSR 


$0009 






08ED 


6A 






RORA 








08 EE 


46 


09 




LSR 


$0009 






08 FO 


6A 






RORA 








08F1 


85 


05 




STA 


$0005 


NO, OF 8 CYCLE LOOPS 




0&F3 


68 






FLA 








08F4 


29 


07 




ANDIM 


$07 


LEFT OVER CYCLES DETERMINT 




08 F 6 


AA 






TAX 




ENTRY POINT 




08F7 


BD 


F8 09 




LDAX 


TTABLE 


TABLE OF ENTRY POINTS FOR TIMING LOOP 




08FA 


85 


00 




STA 


$0000 
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il^Q(S^(£)i 



/i 



i> 



08FC A5 


OE 




LDA 


$000E 


08FE 38 






SEC 




08FF E5 


OD 




SBC 


$000D 


0901 FO 


OF 




BEQ 


NOTEB 


0903 20 


93 


08 


JSR 


SCALE 


0906 A2 


02 




LDXIM 


$02 


0908 B5 


OA 




NOTEA LDAZX 


$0A 


O9OA 95 


02 




STAZX 


$02 


090c CA 






DEX 




O9OD 10 


F9 




BPL 


NOTEA 


O9OF 20 


6F 


08 


JSR 


TIMEC 


0912 A5 


OD 




NOTEB LDA 


$000D 


09 U FO 


OE 




BEQ 


MAIN 


0916 20 


93 


08 


JSR 


SCALE 


0919 A9 


00 




LDAIM 


$00 


09IB 85 


02 




STA 


$0002 


09ID 85 


03 




STA 


$0003 


09IF 85 


on 




STA 


$0004 


0921 20 


6F 


08 


JSR 


TIMEC 


0924 






ORG 


$0924 



NOTE DURATION, QUARTER, HALF 

REST PART OF NOTE 
IF NOTHING TO DO 
SCALING ROUTINE 
START PATTERN LOAD 



TIMING ROUTINE 
REST PART OF NOTE 
IF NOTHING TO DO 
SCALING ROUTINE 

ZERO OUT PATTERN FOR 
REST PART 

TIMING 



MAIN PART OF INTERPRETER 
ENTRY AT "ENTRY" 



0924 E6 13 MAIN INC $0013 
0926 DO 02 BNE ENTRY 

0928 E6 14 INC $0014 



TABLE ADDRESS 



092A AO 00 
092C B1 13 
092E 30 12 

0930 48 

0931 29 OF 

0933 OA 

0934 A8 

0935 68 

0936 29 70 

0938 4A 

0939 4A 
093A 4A 
093B 69 02 
093D 85 OE 
093F 4C BE 08 



ENTRY LDYIM $00 

LDAIY $0013 

BMI MAINA 

PHA 

ANDIM $0F 

ASLA 

TAY 

PLA 

ANDIM $70 

LSRA 

LSRA 

LSRA 

ADCIM $02 

STA $000E 

JMP NOTE 



0942 C9 FD MAINA 
0944 90 01 
0946 60 



CMPIM $FD 
BCC MAINB 
RTS 



NEXT TABLE BYTE 
TO CONTROL SECTION 

TONE 



DURATION 



TOTAL DURATION IN I6THS 

PAY NOTE 

CO + 3D IS LONGEST NOTE FOR 
FOR SCALING REASONS 



^ 



0947 48 


MAINB PHA 


0948 OA 


ASLA 


0949 10 07 


BPL 


094B 68 


PLA 


094C 29 3F 


ANDIM 


094E 85 12 


STA 


0950 BO D2 


ECS 



MAINC 



$0012 
MAIN 



NOTE LENGTH 



UNCONDITIONAL BRANCH 
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0952 


OA 




MAINC 


ASLA 






0953 


10 


08 




BPL 


MAIND 




0955 


68 






PLA 






0956 


29 


IF 




ANDIM 


$1F 


TONAL RANGE INDEX 


0958 


OA 






ASLA 






0959 


85 


OF 




STA 


$000F 




095B 


90 


C7 




BCC 


MAIN 


UNCONDITIONAL BRANCH 


095D 


OA 




MAIND 


ASLA 






095E 


10 


07 




BPL 


MAINE 




0960 


68 






PLA 






0961 


29 


OF 




ANDIM 


$0F 


AESl FRACTION 


0963 


85 


OD 




STA 


$000D 




0965 


90 


BD 




BCC 


MAIN 


UNCONDITIONAL BRANCH 


0967 


OA 




MAINE 


ASLA 






0968 


10 


03 




BPL 


MAING 




09 6A 


68 




MAINF 


PLA 






096B 


90 


B7 




BCC 


MAIN 


DUMMY, CONTROLS NOT INTERPRETED 


096D 


OA 




MAING 


ASLA 






096E 


30 


FA 




BMI 


MAINF 




0970 


OA 






ASLA 






0971 


10 


2B 




BPL 


MAINI 




0973 


68 






PLA 






0974 


AA 






TAX 




JSR AND JMP SECTION 


0975 


UA 






LSRA 






0976 


90 


OA 




BCC 


MAINH 




0978 


A5 


13 




LDA 


$0013 


JSR SECTION, PUSH RETURN TABLE 


097A 


69 


01 




ADCIM 


$01 


ADDRESS ON TO STACK 


097C 


48 






PHA 






097D 


A5 


14 




LDA 


$0014 




097F 


69 


00 




ADCIM 


$00 




0981 


48 






PHA 






0982 


C8 




MAINH 


INY 






0983 


B1 


13 




LDAIY 


$0013 


GET NEW ADDRESS 


0985 


48 






PHA 






0986 


C8 






INY 






0987 


B1 


13 




LDAIY 


$0013 




0989 


85 


14 




STA 


$0014 




09 8B 


68 






PLA 






098c 


85 


13 




STA 


$0013 




098E 


8A 






TXA 




AND STORE IT FROM BEGINNING 


098F 


4A 






LSRA 




OF SELECTION 


0990 


90 


98 




BCC 


ENTRY 


JMP 


0992 


20 


2A 09 




JSR 


ENTRY 


JSR 


0995 


68 






PLA 






0996 


85 


14 




STA 


$0014 


PULL ADDRESS AND STORE IT 


0998 


68 






PLA 






0999 


85 


13 




STA 


$0013 




099B 


18 






CLC 






099c 


90 


86 




BCC 


MAIN 


UNCONDITIONAL BRANCH 


099E 


68 




MAINI 


PLA 






099F 


AO 


03 




LDYIM 


$03 


GET NEW PATTERN AND 


09A1 


B1 


13 


MAINJ 


LDAIY 


$0013 


STORE IT 
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r^k 



^ 



09A3 99 09 00 
09A6 88 
09A7 DO F8 
09A9 A5 13 
09AB 69 03 
09AD 85 13 
09AF 90 02 
09B1 E6 m 



STAY 
DEY 
BNE 
LDA 
ADCIM $03 



$0009 

MAINJ 
$0013 



STA 
BCC 
INC 



09C0 



$0013 
MAINK 
$0014 



09B3 4C 24 09 MAINK JMP MAIN 



ORG $09C0 



JUMP OVER PATTERN 



INITIALIZATION FOR ZERO PAGE 



09C0 D8 




09C1 A9 


00 


09C3 85 


10 


09C5 A9 


08 


09C7 85 


11 


09C9 85 


01 


09CB A9 


OA 


09CD 85 


14 


09CF A9 


20 


09D1 85 


13 


09D3 A9 


01 


09D5 85 


OD 


09D7 A9 


20 


09D9 85 


12 


09DB A9 


20 


09DD 85 


OF 


09DF A9 


05 


09E1 85 


OA 


09E3 85 


OB 


09E5 85 


OC 


09E7 20 


2A 09 


09EA 4C 


69 FF 



ZERO 



09F8 



09F8 63 
09F9 6A 
09FA 62 
09FB 6D 
09FC 61 
09FD 6C 
09FE 60 
09FF 6B 

ENTRY 092A 

MAINC 0952 

MAING 096D 

MAINK 09B3 

SCALE 0893 

TIMEB 086A 

TIMEF 088A 



CLD 

LDAIM 

STA 

LDAIM 

STA 

STA 

LDAIM 

STA 

LDAIM 

STA 

LDAIM 

STA 

LDAIM 

STA 

LDAIM 

STA 

LDAIM 

STA 

STA 

STA 

JSR 

JMP 



JUST IN CASE 



$00 

$0010 

$08 

$0011 

$0001 

$0A 

$0014 

$20 

$0013 

$01 

$000D 

$20 

$0012 

$20 

$000F 

$05 

$000A 

$000B 

$000C 

ENTRY 

$FF69 



NOTE TABLE PAGE 

NTOE TABLE BYTE 

REST 16THS 

NOTE LENGTH, CONTROLS TEMPO 

TONAL RANGE INDEX 

WAVE SHAPE PATTERN 



TO APPLAYER 

TO MONITOR, AFTER THE BEEP 



ORG $09F8 



TABLE OF ENTRY POINTS FOR TIMING ROUTINE 



TTABLE 



$63 
$6A 
$62 
$6D 
$61 
$6C 
$60 
$6B 



MAIN 0924 

MAIND 095D 

MAINH 0982 

NOTE 08BE 

SCALEA 08B2 

TIMEC 086F 

TIMEG 088E 



MAINA 0942 

MAINE 0967 

MAINI 099E 

NOTEA 0908 

TIME 0860 

TIMED 0876 

TTABLE 09F8 



MAINB 0947 

MAINF 096A 

MAINJ 09A1 

NOTEB 0912 

TIMEA 0863 

TIMEE 0881 

ZERO 09C0 



\- 
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A BLOCK HEX DUMP AND CHARACTER NAP 
UTILITY PROGRAM FOR THE KIH-1 

3. C. Williams 
35 Greenbrook Drive 
Cranbury, NIJ 08512 



Here's a useful, fully relocatable 
utility program which will dump a spec- 
ified block of memory from a KIM to a 
terminal. At the user's option, a hex 
dump with an ASCII character map is 
produced. 

The hex dump will allow the programmer 
to rapidly check memory contents 
against a "master" listing when loading 
or debugging programs. With a printing 
terminal , the hex dump produces docu- 
mentation of machine code to complement 
an assembly listing of a program. 

A character map is useful if the block 
being dumped is an ASCII file. An 
example would be source code being pre- 
pared with an editor for later assem- 
bly. The map shows what the file is 
and where it is in case a minor correc- 
tion is needed using the KIM monitor. 

To use this utility program: 

1. Load the code anywhere you want it, 
in RAM or PROM memory. 

2. Define the block to be dumped just 
as for a KlM-1 tape dump: 

BLOCK STARTING ADDRESS 17F5 (low) 

17F6 (high) 

BLOCK ENDING ADDRESS+1 17F7 (low) 

17F8 (high) 

3. Select the MAP/NOMAP option: 



MAP mode 
NOMAP mode 



00 in 17F9 
FF in 17F9 



H. Run the program starting at the 
first instruction. At the end of the 
dump, control will return to the KIM 



monitor. The examples following the 
assembly listing will give you the 
idea. 

The program as listed dumps 16 decimal 
bytes per line. Users with TVT's may 
want to initialize the line byte count- 
er for 8 decimal bytes per line to al- 
low the hex with MAP format to fit the 
display. To make this change, replace 
the $0F at $021E with $07. 

Another possible change is to have the 
program exit to a location other than 
the KIM-1 monitor. Exit to a text ed- 
itor or tape dump may be convenient. 
Since the MAP/NOMAP option is deter- 
mined by the most significant (sign) 
bit of what is stored at $17F9, a suit- 
able tape ID number can be placed there 
for use of the KIM-1 tape dump or 
Hypertape. Use ID's from $01-$7F for 
files needing no character map and ID's 
from $80-$FE for ASCII files. Start 
the tape recorder in RECORD when the 
dump to the terminal is a few seconds 
from completion. 

The flowchart will assist users wanting 
to make major alterations. Of neces- 
sity, ASCII non-printable characters 
are mapped as two hex digits. If other 
ASCII codes have special meaning for 
the user's terminal, a patch will be 
necessary to trap them. Single-step- 
ping through this program can't be done 
because it uses the monitor's "display" 
locations. This is a small price to 
pay in order to use the monitor's sub- 
routines. If use with a non-KIM 650X 
system i^ desired, the subroutines used 
must preserve the X register. 



SYMBOL TABLE 

CRLF 1E2F DOMAP 026E 

EAL 17F7 EXT 1C4F 

LINE 020D LINEA 0217 

MODE 17F9 NXLN 0285 

POINTH OOFB POINTL OOFA 

PTBT 0243 SAH 17F6 

TMODE 00F9 TSTEND 02H7 



DONE 028A 
INCPT 1F53 
LINEB 0228 
OUTCH 1EA0 
PRTBYT 1E3B 
SAL 17F5 



EAH 17F8 
INIT 0200 
LNTST 0279 
OUTSP 1E9E 
PRTPNT 1E1E 
SPO 0262 



^ 
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BLOCK HEX DUMP WITH CHARACTER MAP 



( START y 



INITIALIZE POINTER 
PRINT GRLF 



, 4- 

( LINE 



SET "NOMAP" TEMPORARY MODE 
PRINT CRLF 



I 



LINEl 



SAVE POINTER ON STACK 
SET BYTE COUNTER FOR l6 
PRINT 3 SPACES 



I LINE2 } *r 



PRINT 1 SPACE 

PRINT BYTE @ (POINTL) AS 2 
HEX DIGITS OR 1 CHARACTER 
AS REQUIRED BY TEMP. MODE 
AND PRINTABILITY 



T 

(TSTEND 1 
^ 



I INCREMENT POINTER* 



NO 



DONE 



YES 



I 



PRINT CRLF 

FIX STACK 

EXIT TO MONITOR 




NO 



-> (lntst ) 



DECREMENT BYTE COUNTER 



I SPACE OVER TO MAP | 



( DOMAP ) <- 



SET "MAP" TMODE 
RESET POINTER TO 
LINE START 




NO 



NO 



REMOVE SAVED POINTER 
FROM STACK 



^ 
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BLOCK HEX DUMP AND CHARACTER MAP 
UTILITY PROGRAM FOR KIM-1 



0200 



J. C. WILLIAMS - 1978 

ORG $0200 
MEMORY LOCATIONS 



0200 


TMODE * 


* $00F9 


0200 


POINTL « 


» $OOFA 


0200 


POINTH * 


» $OOFB 


0200 


SAL ' 


* $17F5 


0200 


SAH * 


» $17F6 


0200 


EAL * 


» $17F7 


0200 


EAH « 


» $17F8 


0200 


MODE » 


» $17F9 


0200 


EXT ' 


» $1C4F 



TEMPORARY MODE FLAG 
POINTER 

BLOCK STARTING ADDRESS 

BLOCK ENDING ADDRESS + 



1 



00 FOR NO MAP, FF FOR HEX AND MAP 
EXIT TO KIM MONITOR 



SUBROUTINES IN KIM MONITOR 



0200 
0200 
0200 
0200 
0200 
0200 

0200 AD F5 
0203 85 FA 
0205 AD F6 
0208 85 FB 
020A 20 2F 



OUTCH » 
CRLF » 
OUTSP » 
PRTBYT » 
PRTPNT » 
INCPT » 



17 INIT 



17 



IE 



LDA 
STA 
LDA 
STA 
JSR 



$1EA0 PRINTS BYTE IN A AS ONE ASCII CHARACTER 

$1E2F CARRIAGE RETURN AND LINE FEED 

$1E9E PRINTS ONE SPACE 

$1E3B PRINTS BYTE IN A AS TWO HEX DIGITS 

$1E1E PRINTS POINTER 

$1F63 INCREMENTS POINTER 

SAL INITIALIZE POINTER 

POINTL 

SAH 

POINTH 

CRLF 



020D 
020F 
0211 
02m 
0217 
0219 
021A 
021c 
021D 
021F 
0222 
0225 
0228 
022B 
022D 
022F 
0230 
0232 
023'* 
0236 
0238 
023A 



A9 00 
85 F9 
20 2F IE 
20 IE IE 
A5 FA 

A5 FB 
48 

A2 OF 
20 9E IE 
20 9E IE 
20 9E IE 
20 9E IE 
AO 00 
B1 FA 
48 

24 F9 
10 OF 

29 7F 
C9 20 

30 09 
68 



LINE 



LINEA 



LINEB 



LDAIM 

STA 

JSR 

JSR 

LDA 

PHA 

LDA 

PHA 

LDXIM 

JSR 

JSR 

JSR 

JSR 

LDYIM 

LDAIY 

PHA 

BIT 

BPL 

ANDIM 

CMPIM 

BMI 

PLA 



$00 START A LINE 

TMODE INTI TMODE 

CRLF 

PRTPNT PRINT POINTER 

POINTL START A LINE SEGMENT 



POINTH 

$0F 

OUTSP 

OUTSP 

OUTSP 

OUTSP 

$00 

POINTL AND SAME ON STACK 



INIT BYTE COUNTER 
OUTPUT SOME SPACES 



GET THE BYTE 



TMODE IN MAP MODE? 

PTBT NO 

$7F YES. TEST FOR PRINTABLE 

$20 CHARACTER 

PTBT PRINT AS TWO HEX DIGITS 



\. 
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023B 


20 


AO 


IE 




JSR 


DUTCH 


PRINT AS ONE ASCII CHARACTER 


023E 


20 


9E 


IE 




JSR 


OUTSP 


AND A SPACE 


0241 


10 


04 






BPL 


TSTEND 


UNCONDITIONAL BRANCH 


0243 


68 






PTBT 


FLA 




RECOVER BYTE AND 


0244 


20 


3B 


IE 




JSR 


PRTBYT 


PRINT AS TWO HEX DIGITS 


024? 


20 


63 


IF 


TSTEND 


JSR 


INCPT 


INCREMENT POINTER 


024A 


A5 


FA 






LDA 


POINTL 


AND TEST AGAINST ENDING 


024C 


CD 


F7 


17 




CMP 


EAL 


ADDRESS + 1 


024F 


A5 


FB 






LDA 


POINTH 




0251 


ED 


F8 


17 




SBC 


EAH 




0254 


90 


23 






BCC 


LNTST 


NOT BLOCK END. TEST FOR LINE E 


0256 


2C 


F9 


17 




BIT 


MODE 


END OF BLOCK REACHED. IS MAP 


0259 


10 


2F 






BPL 


DONE 


NEEDED. DONE IF NOT. 


025B 


24 


F9 






BIT 


TMODE 


HAS MAP BEEN DONE? 


025D 


30 


2B 






BMI 


DONE 


YES, EXIT 


025F 


CA 








DEX 






0260 


30 


OC 






BMI 


DOMAP 


NO SPACES NEEDED 


0262 


20 


9E 


IE 


SPO 


JSR 


OUTSP 


SPACE OVER TO CHARACTER MAP 


0265 


20 


9E 


IE 




JSR 


OUTSP 




0268 


20 


9E 


IE 




JSR 


OUTSP 




026B 


CA 








DEX 






026C 


10 


F4 






BPL 


SPO 




026E 


C6 


F9 




DOM A? 


DEC 


TMODE 


DO THE MAP. FIRST SET THE 


0270 


68 








PLA 




MAP FLAG AND RESET POINTER TO 


0271 


85 


FB 






STA 


POINTH 


START OF LINE 


0273 


68 








PLA 






0274 


85 


FA 






STA 


POINTL 




0276 


38 








SEC 






0277 


BO 


9E 






BCS 


LINEA 


AND PRINT THE MAP SEGMENT 


0279 


CA 






LNTST 


DEX 




TEST FOR END OF LINE 


027A 


10 


AC 






BPL 


LINEB 


NOT AT END. DO THE NEXT BYTE 


027C 


2C 


F9 


17 




BIT 


MODE 


END OF LINE SEGMENT REACHED. I 


027F 


10 


04 






BPL 


NXLN 


NO, DO THE NEXT LINE 


0281 


24 


F9 






BIT 


TMODE 


HAS THE MAP SEGMENT BEEN DONE? 


0283 


10 


E9 






BPL 


DOMAP 


NO, DO IT NOW 


0285 


68 






NXLN 


PLA 




DO THE NEXT LINE 


0286 


68 








PLA 




FIRST FIXT THE STACK 


0287 


38 








SEC 






0288 


BO 


83 






BCS 


LINE 


DO THE NEXT LINE 


028A 


20 


2F 


IE 


DONE 


JSR 


CRLF 


DONE 


028D 


68 








PLA 




REMOVE SAVED POINTER FORM STACK 


028E 


68 








PLA 






028F 


4C 


4F 


1C 




JMP 


EXT 


EXIT TO KIM MONITOR 



IS MAP NEEDED? 



^ 
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KIM 




































2880 


52 


17F5 






























17F5 


00 


00. 




BLOCK 


STARTING 


ADDRESS : 


: 2800 












17F6 


28 


28. 
































17F7 


80 


80. 




BLOCK 


ENDING 


- ADDRESS + 


1 = 


2880 










17F8 


28 


28. 
































17F9 


00 


FF. 




SELECl 


" MAP OPTION 


















17FA 


FF 


021E 






























021E 


OF 


07. 




SELECl 


" 8 


LOCATIONS 


PER LINE 












021F 


20 


0200 






























0200 


AD 


G 




START 


PROGRAM AT 0200 
















2800 




OD 


00 


10 


20 


20 


20 


42 


4C 


OD 


00 


10 








B 


L 


2808 




HF 


43 


4B 


20 


48 


45 


58 


20 





C 


K 




H 


E 


X 




2810 




HH 


55 


4D 


50 


20 


41 


4E 


44 


D 


U 


M 


P 




A 


N 


D 


2818 




20 


43 


48 


41 


52 


41 


43 


54 




C 


H 


A 


R 


A 


C 


T 


2820 




i\5 


52 


20 


4D 


41 


50 


OD 


00 


E 


R 




M 


A 


P 


OD 


00 


2828 




20 


20 


20 


20 


55 


54 


49 


4C 










U 


T 


I 


L 


2830 




49 


54 


59 


20 


50 


52 


4F 


47 


I 


T 


Y 




P 


R 





G 


2838 




52 


41 


4D 


20 


46 


4F 


52 


20 


R 


A 


M 




F 





R 




2840 




UB 


49 


4D 


2D 


31 


OD 


00 


30 


K 


I 


M 


- 


1 


OD 


00 





28H8 




OD 


00 


40 


20 


20 


20 


4A 


2E 


OD 


00 


@ 








J 


. 


2850 




20 


43 


2E 


20 


57 


49 


4C 


4C 




c 


. 




W 


I 


L 


L 


2858 




49 


41 


4D 


53 


20 


2D 


20 


31 


I 


A 


M 


S 




- 




1 


2860 




39 


37 


38 


OD 


00 


50 


OD 


00 


9 


7 


8 


OD 


00 


P 


OD 


00 


2868 




60 


20 


4F 


52 


47 


20 


24 


30 


X 







R 


G 




$ 





2870 




32 


30 


30 


OD 


00 


70 


OD 


00 


2 








OD 


00 


P 


OD 


00 


2878 




80 


20 


20 


20 


4D 


45 


4D 


4F 


80 








M 


E 


M 






KIM 


















17F5 


















17F5 


00 


00. 


BLOCK STARTING ADDRESS = 


: 2800 










17F6 


28 


28. 














17F7 


80 


80. 


BLOCK ENDING ADDRESS + ' 


= 2880 








17F8 


28 


28. 














17F9 


FF 


00. 


SELECT NOMAP OPTION 












17FA 


FF 


021E 














021E 


07 


OF. 


SELECT 16 LOCATIONS PER 


LINE 










021F 


20 


0200 














0200 


AD 


G 


START PROGRAM AT 0200 












2800 




OD 00 


10 20 20 20 42 4C 4F 43 


4B 20 


48 


45 


58 


20 


2810 




44 55 


4D 50 20 41 4E 44 20 43 


48 41 


52 


41 


43 


54 


2820 




45 52 


20 4D 41 50 OD 00 20 20 


20 20 


55 


54 


49 


4C 


2830 




49 54 


59 20 50 52 4F 47 52 41 


4D 20 


46 


4F 


52 


20 


2840 




4B 49 


4D 2D 31 OD 00 30 OD 00 


40 20 


20 


20 


4A 


2E 


2850 




20 43 


2E 20 57 49 4C 4C 49 41 


4D 53 


20 


2D 


20 


31 


2860 




39 37 


38 OD 00 50 OD 00 60 20 


4F 52 


47 


20 


24 


30 


2870 




32 30 


30 OD 00 70 OD 00 80 20 


20 20 


4D 


45 


4D 


4F 



^ 
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APPLE II ACCESSORIES AND SOFTWARE 



Chuck Carpenter W5US3 
2228 Montclair Place 
Carrollton, TX 75006 



Apple II ovmers may find a couple of 
new items as interesting as I did. 

First, a renumber and append machine 
language program. This was published 
in Dr. Dobbs, Issue #23. April I978. 
Renumber lets you change line numbers 
on your entire program or any part of 
it. It renumbers branching statements 
too. Append lets you link two programs 
together. Any program you have in the 
machine needs to have higher line num- 
bers than the one being loaded from 
tape. Renumber lets you do this. POKE 
commands load the various starting and 
ending addresses. CALL commands exe- 
cute the renumber or append program. 
Caution: Renumber and Append will work 
only with integer BASIC. 

Second, the serial interface board from 
Electronic Systems, San Jose, CA. They 
are definitely among the "Good Guys". 
I ordered the parts on a Thursday (by 
phone) and received them the following 
Monday. That's what I call rapid re- 
sponse. I ordered the serial board as- 
sembled and the TTL to RS232 board and 
the MODEM board as kits. I don't have 
the latter two built yet, but I intend 
to have communicating ability when I 
get done. Workmanship and quality on 
the assembled board and the kits was 
satisfactory (and I'm fussy). The ser- 
ial board instructions are a bit vague. 
Unless you are quite familiar with the 
Apple's monitor, BASIC and various I/O 
port commands and addresses, you are 
likely to have some problems. Also, I 
couldn't make the terminal program work 
and there was no explanation of what it 
was supposed to do. 

However, the price is attractive ($62 
assembled and tested, $42 kit) and the 
service was great. I expect eventually 
that I'll be able to have an inexpen- 
sive communicating terminal. The MODEM 
board can be originate or answer so 
I'll have to use two if I want to do 
both. A note of caution here too. As 



written, the machine language program 
starts at page 3 ($0300). Applesoft 
BASIC uses the first few bytes of this 
page. You'll have to relocate the ter- 
minal part of the program to use both 
integer and floating point BASIC. I 
have the serial board connected to my 
printer and everything works okay. 
I'll pass along the results when I have 
the system set up to communicate. 

Finally, Apple has a new version of 
Applesoft called Applesoft II. This 
became available in April 1978. The 
new version is I.5K longer but has all 
the standard integer BASIC commands and 
a few more. It is not compatible with 
previous versions of Applesoft. All 
the known problems seem to have been 
corrected. It's really nice to be able 
to go from one BASIC to the other and 
have to remember only the extended cap- 
abilities, especially for LORES graph- 
ics. There are commands to FLASH and 
RESTORE screen characters, a SPEED com- 
mand to vary the screen writing rate, 
and you can develop HIRES graphics di- 
rectly from program control. Maybe we 
Apple owners should request a retrofit 
kit. This way we can catch up on all 
of the new goodies that are coming from 
Apple. Especially the documentation. 

Addendum - by Robert M. Tripp 

Speaking of documentation, I was quite 
pleased to receive the "Apple II BASIC 
Programming Manual" by Jef Raskin, Pub- 
lished by Apple Computer Company, 1978. 
This arrived in the mail, unsolicited. 
I assume that all Apple II owners have 
received one. If not, write Apple and 
ask for it: product #A2L0005X. The 
manual is well written and elegantly 
printed. My only minor complaint is 
that the light green ink used to show 
the display contents make the book a 
little difficult to read. I hope that 
this manual is only the first of many 
that we will be seeing from Apple. It 
is a very good start . 
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QUICK CHANGE ARTISTRY 




ENGINEERED SPECIFICALLY FOR 
THE KlM-1 MICRO COMPUTER 

• Protection of Chips and 
Other Conn ponents 

• Viewing Angle of Readout 
Enhanced 

• Inn proved Keyboard Position 
for Easier Operation 

EASILY ASSEMBLED 

• Absolutely No 
Alteration of KIM-1 Required 

• All Fasteners Provided 

• Goes Together in Minutes 
with a Small Screwdriver 



ATTRACTIVE FUNCTIONAL PACKAGE 

• Professional Appearance 

• Four Color Connbinations 

• Improves Man/Machine Interface 
MADE OF HIGH IMPACT STRENGTH 
THERMOFORMED PLASTIC 

• KydexlOO-"' 

• Durable 

• Molded-ln Color 

• Non-Conductive 
AVAILABLE FROM STOCK 

• Allow Two to Three Weeks for 
Processing and Delivery 

• No COD'S Please 

• Dealer Inquiries Invited 



TO ORDER: 



NAME . 
STREET. 
CITY _ 



1. Fill in this Coupon (Print or Type Please) 

2. Attach Check or Money Order and Mail to: 



^ 



STATE 



ZIP 



Please Ship Prepaid — 

@ $23.50 Each 
California Residents please pay 

$25.03 (Includes Sales Tax) 



SKEI-I(s) 



TM Rohm & Haas 



the 

enclosures 

group 

55 Stevenson, san trancisco 94105 

Color Desired blue D beige O 
black D white D 



patani Applied For 



die Computer Store 

63 SOUTH MAIN STREET, WINDSOR LOCKS. CONNECTICUT 06096 

203-627-0188 





The KIM 1 



The Computer Store is pleased to 
announce off-the-shelf availa- 

bmtyof Apple II, the 
pefsonal computer. 
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the Computer Store 

63 SOUTH MAIN STREET • WINDSOR LOCKS, COKNECTICUT 

GIFT CERTIFICATE 



THIS COUPON (J0OO FOR $2 OFF ANY PURCHASE OVER $5, 



t 



(. 
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